需要自定义多段线Lisp

CACad · 发表于 2022-7-5 17:02:20

我需要一个命令来提示用户选择对象，然后用4“大概是空间的问题。虽然我知道我可以手动完成，但我通常在角度变化很大的大面积上完成，这可能会非常耗时。我知道这是一个很高的要求，但我保持乐观。我真的不知道从哪里开始，但我非常感谢你们的任何意见。我附上了一张最终结果的图片，希望clarif能看到y

Lee Mac · 发表于 2022-7-5 17:31:23

这将为您提供大部分方法：轮廓对象

Grrr · 发表于 2022-7-5 17:43:31

我想建议：

copy

(defun C:test ( / d SS )
(initget 1)
(setq d (getreal "\nSpecify offset distance :"))
(if (and d (setq SS (ssget)) (setq SS (LM:outline SS)))
        (progn
                (command "_.offset" d (ssname SS 0) "\" "")
                (entdel (ssname SS 0))
        )
)
(princ)
)

CACad · 发表于 2022-7-5 18:15:04

这绝对是一个开始。谢谢大家！关于让它将未连接的对象识别为块并围绕它们进行跟踪，就好像它们是连接的，有什么想法吗？

[编程交流] 需要自定义多段线Lisp

发表回复

精选推荐