求助完善电气线号标注
本帖最后由 cshimao 于 2016-7-18 16:15 编辑;;;自己改写的程序如下，是用来标注一组水平或垂直线进行标号，且有时需要把标注文字移到某一位置。执行程序后能正常标注线号，但无法调用程序中末尾的移动命令“MOVE”，并显示提示：“;错误: 参数类型错误: consp nil”，自己硬是查不出原因，请高手们帮指出错误，并完善。在此先谢谢了。
;;;逐个填写线的数码，由表格自动填写数字.LSP程序改写
;;;不能有重叠线，否则重叠线上有数字
--------------------------------------------------------------------------------(defun c:xhb ( /
本帖最后由 cshimao 于 2016-7-18 16:10 编辑
第一次发帖，也看了新手说明，按要求操作了的啊，怎么后面的代码被截掉了呢？通过编辑保存不了，通过回复发不上。谁提示一下。谢谢， (nth 0 ptlist)这一句，当ptlist为nil时，会返回错误，程序终止，可按照截图修改
另外程序写的比较乱，可以再精简精简，有的函数不必要
且听风吟09 发表于 2016-7-18 17:56 static/image/common/back.gif
(nth 0 ptlist)这一句，当ptlist为nil时，会返回错误，程序终止，可按照截图修改
另外程序写的比较乱，可以 ...
或者直接改成这样吧：(and ptlist (nth 0 ptlist))，写起来比较好看，
还有外面那个大循环改成条件语句吧 且听风吟09 发表于 2016-7-18 17:58 static/image/common/back.gif
或者直接改成这样吧：(and ptlist (nth 0 ptlist))，写起来比较好看，
还有外面那个大循环改成条件语句吧 ...
谢谢指点，已改好。
页:
[1]