|
21.10.2016 09:28
cengizharitaci
|
|
Merhaba Bir silindiri benim vereceğim açı değerine göre ortadan bükecek bir lisp var mı acaba.Şimdiden teşekkür ederim.
|
|
21.10.2016 11:05
boomerang078
|
|
hocalarım merhaba ,
bu siteyi tanıdığıma gerçekten çok memnunum. Yardımcı olan arkadaşlara çok teşekkür ederim. Aşağıda bazı isteklerim mevcut.Yardımcı olabilirseniz minnettar kalıcam .
seçilen blokları dikey şekilde sıraya koyacak bir lisp yazılabilir mi?
seçilen blokların yanına blok isimleri text olarak yazılabilir mi?
|
|
21.10.2016 11:33
 alumina
|
Alıntı
boomerang078 :
Secilen bloklari gosterilen noktadan itibaren 100 birim araliklarla asagiya dogru siralar.
Kod:
(defun c:bs (/ pt dc m vd m1) (vl-load-com)
(if (ssget '((0 . "insert")))
(if (setq pt (getpoint "\nPoint:"))
(progn
(vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for m (vla-get-activeselectionset dc)
(vla-getboundingbox m 'mn 'mx)
(vla-move m (vlax-3d-point (polar (setq m1 (vlax-safearray->list mn))
(/ pi 2) (setq vd (- (cadr (vlax-safearray->list mx)) (cadr m1)))))
(vlax-3d-point pt))
(setq pt (polar pt (+ pi (/ pi 2)) (+ vd 100)))
) (vla-endundomark dc)
)
)
) (princ)
)
Secilen bloklarinin yanlarina isimlerini yazar.
Kod:
(defun c:bt (/ dc m m1) (vl-load-com)
(if (ssget '((0 . "insert")))
(progn
(vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for m (vla-get-activeselectionset dc)
(vla-getboundingbox m 'mn 'mx)
(vla-addtext (vla-get-modelspace dc) (vla-get-EffectiveName m)
(vlax-3d-point (polar (setq m1 (vlax-safearray->list mn)) 0
(+ 10 (- (car (vlax-safearray->list mx)) (car m1))))) (getvar 'textsize))
) (vla-endundomark dc)
)
) (princ)
)
|
|
24.10.2016 08:02
BLack|E
|
|
Herhangi bir Text ya da Mtext copy yapıyorum aynı sayfada, sürükleyip bıraktıktan sonra içine girip mevcut yazının yerine başka bir şey yazıyorum. Bu işi kısaltmak için bir lisp var mıdır?
copy yapıp sürükleyip bıraktıkdan sonra komuttan çıkmadan edit aktif hale gelsin kopyaladığım text, mtext'in hemen içeriğine gireyim ve değiştireyim. Kolay gelsin.
|
|
24.10.2016 08:42
boomerang078
|
|
alumina hocam çok teşekkür ederim.
Çok işime yaradı.
|
|
24.10.2016 10:17
alumina
|
Alıntı
BLack|E :
Ertan,
bu isin daha kisasi, yapmamaktir :)
|
|
24.10.2016 10:52
BLack|E
|
alumina
:) Doğru söylüyorsun hocam.
Travaci (26.10.2016 06:17 GMT)
|
|
26.10.2016 15:39
muratsemih
|
|
Arkadaşlar merhaba.
Lisp yazıyorum bir kısmında menü oluşturması gerekiyor 3 tane seçenek yazacak birini seçincede(mouseyle tıklıcam yanındaki kutucuk dolacak) blok çağıracak....blok çağırma işini yazdım yazmasınada bu seçim tablosu (örneğin find komutundaki gibi ekran çıkıyorya o tarz birşey yanında kutucuk olan yazılar) nasıl oluşturabilirim? hangi komutlar işimi görür. yardımcı olabilir misiniz? şimdiken uğraşan arkadaşlara teşekkür ederim.
|
|
28.10.2016 04:53
boldpilot70
|
resimdeki gibi birşeyi nasıl yapabilirim ayrılacak noktayı bana sorması gerekiyor yada bir lisp yaparmısınız.
|
|
28.10.2016 22:01
alumina
|
Alıntı
boldpilot70 :
Secilen circle nesnesini, secilen diger nesnelerle kesistigi noktalardan kirar. Kesisen nokta sayisi 1'den buyuk olmalidir.
Kod:
(defun c:br (/ cc cr en cn cm ss lk lt ls n m i) (vl-load-com)
(defun *error* (msg)
(if (not (wcmatch (strcase msg t) "*cancel*,*exit*"))
(princ (strcat "\nError: " msg)))
(if cc (redraw cn 4)) (setq *error* nil)
)
(if (setq cc (ssget ":s" '((0 . "circle"))))
(progn
(setq cr (cdr (assoc 40 (setq en (entget
(setq cn (ssname cc 0)))))) cm (cdr (assoc 10 en)))
(redraw cn 3)
(if (setq ss (ssget))
(progn
(if (ssmemb cn ss) (ssdel cn ss))
(repeat (setq n (sslength ss))
(setq m -1)
(if (not (minusp (vlax-safearray-get-u-bound (setq lk (vlax-variant-value
(vla-Intersectwith (vlax-ename->vla-object cn) (vlax-ename->vla-object
(ssname ss (setq n (1- n)))) 0))) 1)))
(repeat (/ (length (setq lt (vlax-safearray->list lk))) 3)
(setq ls (cons (angle cm (list (nth (setq m (1+ m)) lt)
(nth (setq m (1+ m)) lt) (nth (setq m (1+ m)) lt))) ls)))
)
)
(if (> (length ls) 1)
(progn
(setq ls (vl-sort ls '<) ls (append ls (list (car ls))) i -1)
(vla-startundomark (setq dc (vla-get-activedocument
(vlax-get-acad-object))))
(repeat (- (length ls) 1)
(vla-addarc (vla-get-modelspace dc) (vlax-3d-point cm) cr
(nth (setq i (1+ i)) ls) (nth (1+ i) ls))) (entdel cn)
(vla-endundomark dc)
)
)
)
) (redraw cn 4)
)
) (setq *error* nil) (princ)
)
|
|
29.10.2016 07:32
boldpilot70
|
|
teşekkürler alumina
|
|
03.11.2016 08:35
 halilozcakir
|
|
Merhaba üstadlar Hatch lerde değişikliği yapabilecek lisp var mıdır?
şöyle mimari grup solid ile duvar ve kolon kiriş vs taramış bunları bir çıktı alıyorsun kağıdın feleği şaşıyor yazık.
solidleri ANSI lerden yada diğerlerinden biri ile değiştireceğim seç semde olur seçmememde..
tabi Hatch scale ayarı da yapmam gerekli .
|
|
03.11.2016 09:11
alumina
|
Alıntı
halilozcakir :
Kod:
(defun c:pr (/)
"Quick Select" le butun solid hatch'leri secip properties'ten istedigin degisikligi yap
(prin1)
)
|
|
03.11.2016 10:40
halilozcakir
|
|
özür dilerim eklemeyi unuttuğum bir konu var , bloklar içinde de olsa değiştirmem gerekiyor.
birde lisp yazmasını gerçekten bilmiyorum.,yaptırdığım layer on, off lock
|
|
03.11.2016 17:29
pulp fiction
|
|
Merhaba herkese;
Seçtiğimiz ölçüdeki değeri texte fieldli şekilde yazan bir lisp mümkün mü?
Şimdiden teşekkürler...
|
|
04.11.2016 06:50
savasnas
|
|
Arkadaşlar Merhaba,
Autocad üzerinde cizdiğim polyline ları toplu olarak seçip bir kerede hepsine ayrı ayrı numaralandırma yapabileceğim bir lisp var mı veya yapılabilir mi?
|
|
04.11.2016 11:47
alumina
|
Alıntı
halilozcakir :
Blok ici objelerde dahil olmak uzere secilen "SOLID" hatch objelerini istenilen pattern name ve pattern scale degerlerine cevirir.
Kod:
(defun c:ht (/ ss pn sc dc i en nn nf) (vl-load-com)
(defun n1 (p1 p2 p3 /) (entmod (subst (cons p1 p2) (assoc p1 p3) p3)))
(if (setq ss (ssget '((-4 . "<or") (-4 . "<and") (0 . "hatch") (2 . "SOLID")
(-4 . "and>") (0 . "insert") (-4 . "or>"))))
(if (setq pn (getstring T "\nPattern name:"))
(if (setq sc (getreal "\nPattern scale:"))
(progn
(vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
(repeat (setq i (sslength ss))
(if (/= (cdr (assoc 0 (setq en (entget (setq ns (ssname ss
(setq i (1- i)))))))) "INSERT")
(progn (n1 2 pn en) (n1 41 sc (setq en (entget ns))))
(progn
(setq nn (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 en))))))
(while nn
(if (and (= (cdr (assoc 0 (setq nf (entget nn)))) "HATCH")
(= (cdr (assoc 2 nf)) "SOLID"))
(progn (n1 2 pn nf) (n1 41 sc (setq nf (entget nn))))
) (setq nn (entnext nn))
) (entupd (cdr (assoc -1 en)))
)
)
) (vla-endundomark dc) (vla-regen dc acAllViewports)
)
)
)
) (princ)
)
|
|
04.11.2016 13:51
halilozcakir
|
Alıntı
alumina :
-------------------------------------------------------------------------------------
Eline sağlık kardeş Allah razı olsun ,teşekkürler.
|
|
26.11.2016 14:28
122105asd
|
|
merhaba forumda yeniyim öncelikle merhaba
benim bir lispe ihtiyacım var inşaat mühendisiyim ve metraj yapıyorum
kapalı bir polyline oldugunu varsayalım içindede attribute ile mahal bilgiileri mevcut
ben lisp kullanarak kapalı polyline ların alan ve çevre bilgilerini attributenin içinde ayrı satırlara yazdırmak istiyorum bu mümkünmü saygılar.
|
alumina
|
Alıntı
122105asd :
Kapali polyline icinde varolan bir attribut un degerleri mi degisecek yoksa alan ve cevre bilgilerini iceren yeni bir attribut mu olusturulacak? Cizim birimi nedir? Ornek bir dosya paylasırsan yardımcı olmaya calisiriz.
|
Sonraki Sayfa
