Tharwat 发表于 2022-7-6 08:14:40

像这样的事情？

(defun c:Test (/ p1 p2 w vl) (vl-load-com)
(if (and (setq p1 (getpoint "\n Specify first point :"))
          (setq p2 (getpoint p1 "\n Next point :"))
   )
   (vl-cmdf "_.pline" "_non" p1 "_non" p2 "")
)
(if (setq w (getdist "\n Specify width of Polyline :"))
   (progn
   (setq vl (vlax-ename->vla-object (entlast)))
   (vla-put-constantwidth vl w)
   )
   (princ)
)
(princ)
)

Grigs 发表于 2022-7-6 08:19:04

是的，效果很好。谢谢

Tharwat 发表于 2022-7-6 08:20:30

 
不客气。

Grigs 发表于 2022-7-6 08:24:10

现在只是稍微调整一下

Tharwat 发表于 2022-7-6 08:27:32

如果你需要添加更多选项，只要告诉我，如果我能做到的话，我会非常乐意修改它。

Grigs 发表于 2022-7-6 08:30:36

我只需要添加错误检测、层控制、OSNAP的设置/重置。

Tharwat 发表于 2022-7-6 08:33:49

是的，这是可能的。
 
要在其上放置绘制的多段线的图层的名称是什么？
在运行例程时，您想要将其设置为打开的osnaps模式？

Grigs 发表于 2022-7-6 08:39:10

嗯，我想我已经弄明白了。它检测层是否存在。如果存在，则将该层设置为当前层。如果没有，它就会创建它。我已经同意了，只需要保存当前层并重置它。

Tharwat 发表于 2022-7-6 08:40:15

好的，只需发布图层的名称及其设置（颜色、线宽、LType）

Grigs 发表于 2022-7-6 08:42:51

以下是我提出的处理该层的代码：
 
页: 1 [2]
查看完整版本: Wall PocheLisp程序