21.11.2014 06:19

79213    

br sembol seçip delikleri çoklu olarak seçtiğimizde seçilen sembole çeviren bir lisp yapılabilir mi.

21.11.2014 08:16

79223    

sizden rica etsem yapabilirmisiniz.

21.11.2014 14:00

79236    

Sembolleri blok olarak kaydedip asagidaki kodu kullanabilirsiniz..


(defun c:info()
(prompt "\nSelect circle:")
(setq cc (ssget '((0 . "circle"))))
(while
(null cc)
(prompt "\nSelect circle:")
(setq cc (ssget '((0 . "circle")))))
(setq bl (entsel "\nSelect block:"))
(while
(null bl)
(setq bl (entsel "\nSelect block:")))
(command "._undo" "_g")
(setq old_osmode (getvar "osmode"))
(setvar "osmode" 0)
(setq i 0)
(repeat (sslength cc)
(command "._copy" bl "" (cdr (assoc 10 (entget (car bl)))) (cdr (assoc 10 (entget (ssname cc i)))) "")
(entdel (ssname cc i))
(setq i (1+ i)))
(command "._undo" "_e")
(setvar "osmode" old_osmode)
(princ))