Rain0923 发表于 2022-7-5 18:23:25

这个动作怎么了

我有一个Lisp程序,如下所示,但它正在显示
>
选择:PL
选择行:无功能定义:STARTSP
 
有什么可以帮我修改这个Lisp程序的吗?
 
(defun c:moveline()(prompt“\n”)(initget“L PL”)(setq typ(getkword”\n select:)(prompt“\n select line:”)(if(null typ)(setq typ“PL”)(cond((=typ“L”)(lremoveline))((=typ“PL”)(premoveline))(defun lremoveline()(startsp)(setq ss(ssget’((0。“line”)))(setq ssn(sslength ss))(setq i 0)(setq data\u)list nil)(重复ssn(setq en(ssname ss i))(setq endata(entget en))(setq xcor(assoc 10 endata))(setq ycor(assoc 11 endata))(setq en_x_y(cons en(list xcor ycor))(setq data_list(cons en_x_y data_list))(setq i(1+i))(setq data_list(reverse data_list))(vl load com)(setq i 0)(setq same_en nil)(而(

tombu 发表于 2022-7-5 19:28:37

发布一个链接,指向你获得代码的地方,它调用了函数“startsp”,这在你发布的代码中没有定义。
页: [1]
查看完整版本: 这个动作怎么了