AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > Acemi AutoLISP > PLINE OLUŞTURMA HK.
04.10.2022 12:32    
bayankapris61
Selamlar,
Bu şekilde bir izolasyon çizen pline lispi ne offset atacak bir kod yerleştirmek istiyorum. Yani çizerken pline görseldeki gibi olmalı. Her yerine ekledim nerdeyse ama çalışmadı. Yardımcı olabilecek var mı ya da yönlendirebilecek.

(defun c:pl24 ( / oldlt)
(setq oldlt (getvar 'celtype))
(setvar 'celtype "Membrane")
(setvar 'CELTSCALE 3)
(setvar 'plinewid 2.4)
(setq pt (getpoint "\nStarting point of Pline : "))
(command "_pline" pt)
(while (= (getvar "cmdactive") 1 )
(command (getpoint (getvar 'lastpoint)))
)
(setvar 'celtype oldlt)
(setvar 'CELTSCALE 1)
(setvar 'plinewid 0.0)
(princ)
)
05.10.2022 05:52    
ehya
Merhaba,

Mevcut bir kodun içine birşey eklemek için neyin ne olduğunu bilmek gerek. Çiziminizde net birşey anlaşılmıyor.
Mümkünse çizim paylaşırsanız anlamamız için daha iyi olacaktır.

05.10.2022 06:50    
bayankapris61
Tabi ekte iletiyorum.
Bu şekilde pline çizen bir komut aslında istediğim. Ölçülerimi uyarladım.

381614-pline.dwg

05.10.2022 07:34    
ehya
Paylaştığınız kod içerisine ekleme yaparak çözüm bu olabilir.
Daha iyisi için yeniden yazılması gerekir..

Kod:

(defun c:pl24 ( / oldlt)
(setq oldlt (getvar 'celtype))
(setvar 'celtype "Membrane")
(setvar 'CELTSCALE 3)
(setvar 'plinewid 2.4)
(setq pt (getpoint "\nStarting point of Pline : "))
(command "_pline" pt)
(while (= (getvar "cmdactive") 1 )
(command (getpoint (getvar 'lastpoint)))
)
(if (= (getvar "cmdactive")0)
  (progn
    (setq plent (vlax-ename->vla-object (entlast)))
    (if (vlax-method-applicable-p plent 'offset)
      (progn
(vla-offset plent 1.5)
(setq en1 (vlax-ename->vla-object (entlast)))
(vla-put-Constantwidth en1 0)
(vla-put-linetypescale en1 1)
(vla-put-linetype en1 "Continuous")
(vla-offset plent -1.5)
(setq en2 (vlax-ename->vla-object (entlast)))
(vla-put-Constantwidth en2 0)
(vla-put-linetypescale en2 1)
(vla-put-linetype en2 "Continuous")))))
(setvar 'celtype oldlt)
(setvar 'CELTSCALE 1)
(setvar 'plinewid 0.0)
(princ)
)
05.10.2022 08:36    
bayankapris61
Teşekkür ederim, elinize sağlık.
Tabi gelişmesi gerek mesela mevcuttaki layerla değil kodun içindeki layeri seçip onun ile çizse daha iyi olur bir daha katmandan layer seçip dönüştüreceğim , bunu bir araştırayım.

> 1 <
Copyright © 2004-2022 SQL: 1.262 saniye - Sorgu: 56 - Ortalama: 0.02253 saniye