shenlongzi 发表于 2020-1-1 16:35:15

对多条线进行定距等分

cad里面me命令可以实现多段线的定距等分，不过me命令一次只能选择一条线。请问有一次选择多条线的插件吗？

taoyi0727 发表于 2020-1-1 17:06:58

(defun c:tt (/ n name ss)
        (if (setq ss (ssget))
                (progn
                        (setq n (getreal "\n指定线段长度"))
                        (while (setq name (ssname ss 0))
                                (command "MEASURE" name n)
                                (ssdel name ss)
                        )
                )
        )
        (princ)
)

迷失1786 发表于 2020-1-1 21:06:21

taoyi0727 发表于 2020-1-1 17:06
(defun c:tt (/ n name ss)
        (if (setq ss (ssget))
                (progn


你好,我加载之后出现乱码是什么问题呢?代码能正常使用,就是[指定线段长度]这几个了出现乱码

taoyi0727 发表于 2020-1-1 21:15:42

你把那几个字重新打一次呢

迷失1786 发表于 2020-1-1 21:21:58

taoyi0727 发表于 2020-1-1 21:15
你把那几个字重新打一次呢

试了重打几个汉字,加载还是乱码:(

satan421 发表于 2020-1-2 08:41:01

本帖最后由 satan421 于 2020-1-2 14:14 编辑

出现乱码应该是因为汉字用的是不同的编码。把代码复制到word里面，新建一个文本文档，把word中的代码复制到文本文档，保存文本文档，txt后缀改为lsp，加载此lsp；或者把原来的lsp文件另存，编码改为ANSI,试试。
页: [1]
查看完整版本: 对多条线进行定距等分