边界点-Lisp（需要he

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

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

登录/注册后可看大图

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

我想这是一个起点。。。

[code]（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的小问题。

登录/注册后可看大图

谢谢

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

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

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

按照图纸中引用的文本大小（3）：

[code]（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）（而（

[编程交流] 边界点-Lisp（需要he

发表回复

精选推荐