kopuk çizgi tespit etme | Forumlar

çok fazla çizgiden oluşan plakaları plazmaya gönderiyorum kopuk birleşmemiş çizgi olursa plazma programında sorun çıkarıyor
yani bir çizgi diğer çizgi ile birleşmemişse programda sorun oluyor o yüzden tespit önemli

80849

09.03.2015 20:21

q7kartal

yada kopuk çizgileri birleştiren bir lisp de olabilir

80852

09.03.2015 21:40

alumina

Alıntı
q7kartal :
yada kopuk çizgileri birleştiren bir lisp de olabilir

Ve iste Raskoln :)

80853

09.03.2015 21:42

Travaci

alumina
:D

q7kartal

Pedit <¬ Multiple <¬ Select objects <¬ Join <¬ Gözle görülmeyen açıklığın değeri <¬ <¬

80858

10.03.2015 11:27

alpayelmas

q7kartal bu lisp işini kolaylaştırabilir
en buyuk cızgı boslugunu gır cızgıyı uzatsın

Kod:

(defun c:blen(/ lSet actDoc lDel doMode objLst)
(vl-load-com)
(princ "\n>>> Select lines to extend/reduce <<< ")
(if
(and
(setq lSet
(ssget
'((0 . "LINE"))));
(setq lDel
(getreal "\nSpecify delta: "))
); end and
(progn
(initget 1 "Positive Negative Both")
(setq doMode
(getkword "\nSpecify direction [Positive/Negative/Both]: ")
objLst(mapcar 'vlax-ename->vla-object
(vl-remove-if 'listp
(mapcar 'cadr(ssnamex lSet))))); end setq
(vla-StartUndoMark
(setq actDoc
(vla-get-ActiveDocument
(vlax-get-acad-object)))); end vla-StartUndoMark
(if(member doMode '("Negative" "Both"))
(foreach ln objLst
(vlax-put ln 'startpoint
(polar
(vlax-get ln 'startpoint)
(vlax-get ln 'angle)(- lDel))); end vlax-put
); end foreach
); end if
(if(member doMode '("Positive" "Both"))
(foreach ln objLst
(vlax-put ln 'endpoint
(polar
(vlax-get ln 'endpoint)
(vlax-get ln 'angle)lDel))
); end foreach
); end if
(vla-EndUndoMark actDoc)
); end progn
); end if
(princ)
); end of c:blen

80893

11.03.2015 18:22

q7kartal

birleştirme sonrası resimdeki gibi sorun ortaya çıkıyor.
çizgileri birleştirdikten sonra uzantı olmaması için lispi düzenleyebilirmisiniz.

80908

12.03.2015 14:18

alpayelmas

bir çözüm bulursan bende ihtiyaç duyuyorum

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş