偏移和闭合

highflybird · 发表于 2022-7-5 23:30:06

(defun c:tt( / en en1 pt p1 p2 p3 p4 dist)
 (setvar 'osmode 0)
   (setq dist (getdist (strcat "Enter the offset distance:<"
                             (rtos (getvar "OFFSETDIST")) ">")))
 (if (null dist)
   (setq dist (getvar "offsetdist"))
   (setvar "offsetdist" dist)  )
 (while
 (setq en (car(entsel"\nPlease select object:")))
(command "offset" dist en  pause "")
(setq en1 (entlast))
(setq p1(vlax-curve-getstartpoint en)
        p2(vlax-curve-getendpoint en) 
        p3(vlax-curve-getstartpoint en1)
        p4(vlax-curve-getendpoint en1))  
(command ".line" p1 p3 ""  ".line" p2 p4 ""))
 (setvar 'osmode 4133)
 (princ)
)