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
>
AutoCAD Acil Yardım
>
Noktadan Normale Dik İndrmek
86706
11.10.2018 06:39
oezcan
Merhaba,
2 boyutta çalışacağım yüzlerce nokta var. Bu noktalardan, bunların aşağısında bulunan normal çizgisini seçerek oraya dik çizgiler indirmek istiyorum.
Toplu halde yapmam Mümkün müdür?
Teşekkür ederim
86708
11.10.2018 13:14
ehya
Kod:
(defun c:PTL () (vl-load-com)
(setq act (vla-get-activedocument (vlax-get-acad-object))
ms (vla-get-modelspace act))
(if (setq psec (ssget (list (cons 0 "POINT"))))
(if (setq lsec (entsel "\nÇizgiyi seçin:"))
(progn
(setq c 0 say (sslength psec) ndata (vlax-ename->vla-object (car lsec)))
(vla-startundomark act)
(while (< c say)
(setq tek (ssname psec c)
pn (cdr (assoc 10 (entget tek)))
dnok (vlax-curve-getclosestpointto ndata pn t))
(vla-addline ms (vlax-3d-point pn)(vlax-3d-point dnok))
(setq c (1+ c)))
(vla-endundomark act))))(princ))
86709
13.10.2018 06:17
oezcan
Çok Teşekkür ederim elinize sağlık
>
1
<
Copyright © 2004-2022 SQL: 1.392 saniye - Sorgu: 49 - Ortalama: 0.02841 saniye