Oliver 发表于 2022-7-6 14:45:10

边界点-Lisp（需要he

我只是想请你帮个忙。。对于边界点的常规lisp。。也就是说，我可以选择一个选项，无论是外部NUM。或innner nums。。通常顺时针旋转，如附图所示。。也可以选择一个角作为编号参考。
 
http://img8.imageshack.us/img8/6425/lot276.jpg

Lee Mac 发表于 2022-7-6 14:58:16

我想这是一个起点。。。
 
（defun c：绑定（/cEnt cObj i j）（if（and（setq cEnt（car（entsel“\n选择曲线：”））（member（cdr（assoc 0（entget cEnt））”（“POLYLINE”“LWPOLYLINE”“REGION”））（progn（setq cObj（vlax ename->vla object cEnt）i（vlax Curve getStartParam cObj）j 1）（而（

Oliver 发表于 2022-7-6 15:05:47

它似乎对divide blocks很熟悉。。这不是我的意思。。
其他人。。
 
奥利弗

NH3man! 发表于 2022-7-6 15:13:47

也许你可以解释得更详细一点。李很擅长这个，速度也很快。我知道如果你能描述你想要什么，他很可能会把它写进一个。lsp。

Lee Mac 发表于 2022-7-6 15:15:20

奥利弗，我的代码只是在你选择的物体的顶点上各放一个数字。
 
我以为这就是你要找的？

Lee Mac 发表于 2022-7-6 15:23:01

我发布代码的结果示例：
 

 
 
我以为这就是你想要实现的？

Oliver 发表于 2022-7-6 15:36:04

好啊我得到了它。。但是这里有一个关于文本大小ht的小问题。
 
http://img22.imageshack.us/img22/5409/lot2979a.jpg
 
谢谢

Lee Mac 发表于 2022-7-6 15:38:16

我的代码只使用了图形中设置的TEXTSIZE变量-您希望它的大小是多少？

Lee Mac 发表于 2022-7-6 15:48:05

按照图纸中引用的文本大小（3）：
 
（defun c：绑定（/cEnt cObj i j）（if（and（setq cEnt（car（entsel“\n选择曲线：”））（member（cdr（assoc 0（entget cEnt））”（“POLYLINE”“LWPOLYLINE”“REGION”））（progn（setq cObj（vlax ename->vla object cEnt）i（vlax Curve getStartParam cObj）j 1）（而（
页: [1]
查看完整版本: 边界点-Lisp（需要he