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 enpause "")
(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)
)
 
此代码不能多选，对于圆形、矩形、闭合多段线的支持并不完美。

Lee Mac 发表于 2022-7-5 23:47:36

可以修改此程序以适应：
 
http://www.cadtutor.net/forum/showthread.php?75999&p=512946&viewfull=1#post512946

liuhaixin88 发表于 2022-7-5 23:55:24

 
谢谢李，
我会仔细看的

Lee Mac 发表于 2022-7-6 00:13:12

不客气

highflybird 发表于 2022-7-6 00:21:44

李，我测试，发现它不支持“圆”和“弧”，并且，对于闭合多段线有问题。
 

Lee Mac 发表于 2022-7-6 00:35:48

 
是的，该程序仅支持多段线。
 
 
请上载程序失败的绘图。
页: [1]
查看完整版本: 偏移和闭合