Forum
Download
Galeri
Üye Ol
|
Giriş
AutoCAD
•
AutoLISP
•
Programlama
•
Püfler
•
Komutlar
•
Terimler
•
Eğitim
aLd
•
TCad
•
FacadeCAD
•
Cephe Kot
•
HQ Library
•
FreeMUST
•
Pasdoc.A
Forumlar
>
AutoLISP
>
delik sembolü değiştiren lisp
79213
21.11.2014 06:19
mustafasolidworks
br sembol seçip delikleri çoklu olarak seçtiğimizde seçilen sembole çeviren bir lisp yapılabilir mi.
79216
21.11.2014 07:15
Travaci
Amaç yapılabilirliğini öğrenmekse evet :)
79223
21.11.2014 08:16
mustafasolidworks
sizden rica etsem yapabilirmisiniz.
79234
21.11.2014 12:45
mustafasolidworks
yapabilirmisiniz.
79236
21.11.2014 14:00
alumina
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))
79237
21.11.2014 14:52
mustafasolidworks
teşekkürler
>
1
<
Copyright © 2004-2022 SQL: 1.33 saniye - Sorgu: 61 - Ortalama: 0.02181 saniye