AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > İki çizgi arasına Line çizmek
11.06.2014 11:08    
k005
Merhaba arkadaşlar;

iki çizgi arasına Line çizen bir lisp üzerinde çalışıyorum,, şu kısımda takıldım : birinci noktam çizginin herhangi bir noktası ( yeri) ikinci noktam ise birinci noktam ile aynı düzlemde.. per ile bunu çözemedim..nerede hata yapıyorum ?
Kod:

;İKİ NOKTA ARASINA LINE ÇİZER E.KALAY 11.06.2014
(defun c:ln()
(setvar "cmdecho" 0)
(setvar "orthomode" 0)
(setvar "osmode" 512)
(setq a (Getpoint "\nNoktayı belirleyiniz >"))
(setvar "osmode" 128)
(setq b (Getpoint a "\nDiğer Nokta >"))
(setq L (command "line" a b ))
(princ)
)
11.06.2014 13:58    
ehya
İstediğin şeyi resimli olarak anlatsan..
bu şekilde kodlar ile doğru sonuca ulaşmak biraz zor olur...

11.06.2014 14:56    
k005
ehya

Ekliyorum hocam..

15420-ornek-resim.dwg

11.06.2014 15:56    
ehya
Kod:

(defun c:ln ()
  (vl-load-com)
  (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace thisdrawing))
(setq n1 (entsel "\n1. nesne:")
      n2 (entsel "\n2. nesne"))
  (setq nok1 (osnap (cadr n1) "_nea")
norm   '(0 0 1)
dik (vlax-curve-getClosestPointToProjection (vlax-ename->vla-object (car n2)) nok1 norm t))
(vla-addline mspace (vlax-3d-point nok1) (vlax-3d-point dik))
(princ))
11.06.2014 16:17    
k005
ehya

Hocam çok teşekkür ediyorum, tamamdır.. saygılar sunuyorum..

> 1 <
Copyright © 2004-2022 SQL: 0.955 saniye - Sorgu: 60 - Ortalama: 0.01592 saniye