求助完善电气线号标注

cshimao

;;;自己改写的程序如下，是用来标注一组水平或垂直线进行标号，且有时需要把标注文字移到某一位置。执行程序后能正常标注线号，但无法调用程序中末尾的移动命令“MOVE”，并显示提示：“;错误: 参数类型错误: consp nil”，自己硬是查不出原因，请高手们帮指出错误，并完善。在此先谢谢了。
;;;逐个填写线的数码，由表格自动填写数字.LSP程序改写
;;;不能有重叠线，否则重叠线上有数字
--------------------------------------------------------------------------------[code](defun c:xhb ( /

cshimao

第一次发帖，也看了新手说明，按要求操作了的啊，怎么后面的代码被截掉了呢？通过编辑保存不了，通过回复发不上。谁提示一下。谢谢，

且听风吟09

(nth 0 ptlist)这一句，当ptlist为nil时，会返回错误，程序终止，可按照截图修改
另外程序写的比较乱，可以再精简精简，有的函数不必要

且听风吟09

且听风吟09 发表于 2016-7-18 17:56
(nth 0 ptlist)这一句，当ptlist为nil时，会返回错误，程序终止，可按照截图修改
另外程序写的比较乱，可以 ...

或者直接改成这样吧：(and ptlist (nth 0 ptlist))，写起来比较好看，
还有外面那个大循环改成条件语句吧

cshimao

且听风吟09 发表于 2016-7-18 17:58
或者直接改成这样吧：(and ptlist (nth 0 ptlist))，写起来比较好看，
还有外面那个大循环改成条件语句吧 ...

谢谢指点，已改好。