03.08.2023 18:13    

rambo004
Hocalarım merhaba kesin hakediş için bizden numaraları sırala olacak sekılde bı atasman teslim etmemizi istiyorlar. Lakin biz zamanında numaraları sıralı yapmadık ve yani 0 dan bi sıralama yapmak istiyorum. Zamanında bir şekilde bulmustum ama yazılımı kaybettim yardımcı olabilir misiniz?

Örnek:

276-B/CY-225x225
277-K/CY-225x225-3,30m
278-R/CY-275x275/225x225-0,20m

Zc lisbi ile ben bunları 276 277 seklınde sıraladım ancak bundan bırsuru ve sırasız yazılar var yani ben basındakı 276- ,277-,278- yazılarını silmek ve 0 dan yazdırmak istiyorum. Şimdiden teşekkürler.

04.08.2023 06:37    

baha07

04.08.2023 07:21    

baha07
ayrac tipi degistiginde "-" icinde bulunan simgeyi , yeni ayrac ne ise onunla degistirmen gerekiyor
Kod:

(defun c:rem_first ( / str_to_lst te tel str_lst str )
(defun str_to_lst (str / len lst pos )
    (setq len (1+ (strlen "-")))
    (while (setq pos (vl-string-search "-" str))
        (setq lst (cons (substr str 1 pos) lst)
              str (substr str (+ pos len))
        )
    )
    (reverse (cons str lst))
)
(defun *error* ()(princ))
(setq te (car(entsel "\nSelect text to trim first and last word >")))
(setq tel (entget te))
(setq str_lst (str_to_lst (cdr (assoc 1 tel))))
(setq str_lst (cdr str_lst))
; Tony Tanzillo
(setq str(apply 'strcat(cons (car str_lst) (mapcar '(lambda (s) (strcat "-" s))(cdr str_lst)))))
(setq tel (subst (cons 1 str) (assoc 1 tel) tel))
(entmod tel)
(princ)
)

04.08.2023 13:23    

alumina
Alıntı
baha07 :


Baha, senin yer antalya spotcular carsisinda mi?

04.08.2023 15:38    

baha07
Alıntı
alumina :
Alıntı
baha07 :

Baha, senin yer antalya spotcular carsisinda mi?


mesleki deformasyon mu diyorsun ? ))) .... bir ay daha zaman var ondan sonra kurtuluyorsunuz benden ... biraz ise ara vercem

04.08.2023 17:47    

alumina
Alıntı
baha07 :

Hayir, surekli olarak bir yerlerden 2. el lispler bulup konuya uydurabiliyorsun o yuzden dedim :)))

15.08.2023 11:52    

gzcgan
yazdığınız lipsi nasıl kullanabilirim.komut satırına kopyalarsak olur mu

15.08.2023 12:40    

baha07
Alıntı
gzcgan :
yazdığınız lipsi nasıl kullanabilirim.komut satırına kopyalarsak olur mu


bu konu size yardimci olur
https://cizimokulu.com/page.php?id=19

kisaca yukarida yazan kodlari secip -kopyalayin ..
bilgisayarinizda yeni metin dosyasi olusturun .
metin dosyasinin icine kopyaladiginiz kodlari yapistirin ve kaydedip cikin .
metin dosyasinin isminin sonundaki uzantisi .txt kismini , .lsp olarak degistirin

autocad den , tools menusundeki , load application kismindan yukleyin , yada APPLOAD komutunu kullanin .

baha07 (15.08.2023 12:51 GMT)

> 1 <
Copyright © 2004-2022 SQL: 2.085 saniye - Sorgu: 66 - Ortalama: 0.03159 saniye