30.11.2015 14:46    

Arkadaşlar umut var mı yoksa böyle bir lisp yazılamaz mı?

30.11.2015 15:14    

Aşağıda yer alan lisp ten yola çıkarak bir şeyler olabilir mi acaba, bu lisp te kesişen poly line arc ile geçiyor fakat ikisi ayrı ayrı obje oluyor birde açı sayısal değer olarak girilemiyor.

(defun c:brc (/ obj rad e pt rf pt1 pt2 arc gr mode data)
(vl-load-com)
(setq osm (getvar 'osmode))
(setvar 'osmode 32)
(setq obj (car (entsel "\nSelect Object to break:")))
(Setq rf (getpoint "\nPick center point of arc:"))
(setq rad (getdist "\nEnter Radius value/Pick two points: "))
(setq pt (vlax-curve-getClosestPointTo (setq e obj) rf)
rf (+ (vlax-curve-getdistatPoint e pt) rad)
)
(command "_arc" "_non"
(setq pt1 (vlax-curve-getPointAtDist e rf))
"_e" "_non"
(setq pt2 (vlax-curve-getPointAtDist e (- rf (* rad 2))))
"_r" rad
)
(setq arc (entlast)
tr 0
)
(prompt "\nMove Mouse up and down to flip")
(while
(progn
(setq gr (grread t 15 0)
mode (car gr)
data (cadr gr)
)

(cond ((= 5 mode)
(if ((if (zerop tr) < > ) pi
(angle pt data)
)
(setq tr (boole 6 1 tr)
ro
(vlax-invoke
(vlax-ename->vla-object arc)
'rotate
pt pi
)
)
)
T
)
((member mode '(2 3)) nil)
)
)
)
(command "_break" obj pt1 pt2)
(setvar 'osmode osm)
(princ)
)