Question

找了个CAD编的lisp为什么不能用呢，加载后，输入lll，显示为主命令，求大家帮忙看下，是什么原因？谢谢

标注所有线段(加载后只需框选所有线段便可得标注这些线段)
(defun c:LLL ()
(COMMAND "UCS" "")
(setvar "cmdecho" 1)
(SETVAR "OSMODE" 0)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace (vla-get-ModelSpace Acaddocument)
)
显示未知命令

Answer 1

autoLISP容易入门，也容易出现错误。少了一个刮弧，就会【未知命令】。

现成的软件基本上有这个功能。

1. 【天正建筑】有（长度统计）功能，可以统计所有的长度。并以文字的形式显示。

2. 【超越工具集】里面也有长度统计功能，这个文件小。长度统计命令：CDH（长度和），在命令行显示。

3. 以上都是插件里面合成的，不会造成不能够使用的情况。网上搜索到以后，都要安装，安装完成后就自动匹配AutoCAD就可以使用。很方便。
   

追问

想找到类似的，快速标注这些线段的插件，所以求问懂编程的高手，看看这个是否正确，但按理应该是正确的，可就是出现这样问题

追答

修改程序内容不如重新写一个。我编写了一下，可以对每个线进行文字标注。【注意:文字标注】

程序里面有句话：

(command "lengthen" &k1 "" "" "");这句话是测试版本AutoCAD2015可以通过，其它版本不能够通过的话修改为：

(command "lengthen" &k1 "");这句话在AutoCAD2015版本不能够通过。

追问

额，你这个倒可以用，但不是我这需要的呀。。。

Answer 2

解释一下你的代码中“(COMMAND "UCS" "")”是做什么用的？

追问

就是不知道啊，所以求问懂编程的高手，看看这个是否正确，但按理应该是正确的，可就是出现这样问题

追答

我认为这句是有疑问的。
改成(COMMAND "UCS" "w")试一下。

追问

额。。试下下，还是不行

追答

截图看失败的提示内容