乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 45|回复: 1

[编程交流] 这个动作怎么了

[复制链接]

12

主题

56

帖子

46

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2022-7-5 18:23:25 | 显示全部楼层 |阅读模式
我有一个Lisp程序,如下所示,但它正在显示
>
选择[L,PL]:PL
选择行:无功能定义:STARTSP
 
有什么可以帮我修改这个Lisp程序的吗?
 
[code](defun c:moveline()(prompt“\n”)(initget“L PL”)(setq typ(getkword”\n select[L,PL]:)(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)(而(
回复

使用道具 举报

17

主题

1274

帖子

25

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2022-7-5 19:28:37 | 显示全部楼层
发布一个链接,指向你获得代码的地方,它调用了函数“startsp”,这在你发布的代码中没有定义。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 19:32 , Processed in 0.461675 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表