这个动作怎么了
我有一个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)(而( 发布一个链接,指向你获得代码的地方,它调用了函数“startsp”,这在你发布的代码中没有定义。
页:
[1]