1
AutoLISP (Vanilla / Visual) / Re: Line between 2 endlines
« Last post by ribarm on Today at 07:06:40 AM »I see it...
Try this lisp and see if now is all OK...
Regards, M.R.
Try this lisp and see if now is all OK...
Code - Auto/Visual Lisp: [Select]
- (or (not (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil))) (vl-load-com))
- (command-s "_.undo" "_e")
- )
- )
- (if cmd
- )
- (if m
- )
- )
- )
- (if
- (and
- )
- (if
- (and
- )
- (setq pt1 (vlax-curve-getpointatparam curve1 (float (fix (vlax-curve-getparamatpoint curve1 (vlax-curve-getclosestpointto curve1 (trans pick1 1 0))))))
- pt2 (vlax-curve-getpointatparam curve1 (float (fix (1+ (vlax-curve-getparamatpoint curve1 (vlax-curve-getclosestpointto curve1 (trans pick1 1 0)))))))
- pt3 (vlax-curve-getpointatparam curve2 (float (fix (vlax-curve-getparamatpoint curve2 (vlax-curve-getclosestpointto curve2 (trans pick2 1 0))))))
- pt4 (vlax-curve-getpointatparam curve2 (float (fix (1+ (vlax-curve-getparamatpoint curve2 (vlax-curve-getclosestpointto curve2 (trans pick2 1 0)))))))
- )
- )
- )
- )
- )
- )
- (*error* nil)
- )
Regards, M.R.