komutu ile dosyadaki tüm p1 leri seç. Seçilen nesneler hafızaya alınacaktır.
TCIRCLE komutunu çalıştır ve seçim isterken P yazıp enter yap.
Alt komutlardan Circle yada Rectangle seçerek bu yazıların etrafına istediğin çizimi yaptır.
komutu ile dosyadaki tüm p1 leri seç. Seçilen nesneler hafızaya alınacaktır.
TCIRCLE komutunu çalıştır ve seçim isterken P yazıp enter yap.
Alt komutlardan Circle yada Rectangle seçerek bu yazıların etrafına istediğin çizimi yaptır.
Üstad komutu command satırına yapıştırıp enter yaptığım zaman
Command: (ssget "X" (list (cons 1 "P1)))
((("_>
Bu şekilde çıkıyor. Burada ne yapmam gerekli?
komutu Command: (ssget "X" (list (cons 1 "P1"))) P1 in sonuna tırnak koyarak denediğim zaman
<Selection set: 8120>
Çıkıyor. halbuki 35 adet falan bulması lazım. yanlış mı uyguluyorum acaba?
Evet sonunda tırnak olucak (ssget "X" (list (cons 1 "P1"))) şeklinde
ordaki selection set seçim sayısı değildir ona takılmayın selection set yazısını gördükten sonra anlatımın devamını uygulayın.
(defun c:Ara (/)
(setq pn (getstring t "\nAranacak text: "))
(setq B (ssget "x" (list (cons 1 pn)))
N (sslength B)
L 0)
(while (< L n)
(setq eleman (entget (ssname B L))
Ym (cdr (assoc 10 eleman)))
(entmake (list
(cons 0 "CIRCLE")
(cons 67 0)
(cons 10 ym)
(cons 40 50))) ;Çap 50
(setq L (+ L 1))
)
)
Bunuda denemek istedim. Lisp editöre yapıştırıp komutu (ARA) çalıştırdım. nesneleri bulduğunu söyledi. Buradan sonra yine Tcircle komutu ile Ehya hocamın anlatımını aynen uygulayacakmıyım?
Hayır komutu çalıştırdıktan sonra aranacak kelimeyi yazıp enter la komutu bitiriyoruz, aradığınız yazı varsa hepsini circle ile işaretliyor. (cons 40 50))) ;Çap 50; bu kısımdan çapı arttırabilirsiniz.