小弟新手，求好心的各位大神帮我看看

路与三年 · 发表于 2016-10-28 10:05:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想找到封闭四边形的四个顶点，好继续下面的操作，绘图，但是，不知道有什么问题  总通不过测试！求哪位好心的大神帮我看看这段代码，哪里出错了，谢谢！！[sell=50]求好心人帮忙解决并附上改过之后的代码！谢谢[/sell]

(defun c:tt()

  (setq Pa (getpoint "\n请输入封闭矩形内一点:"))
(command "BPOLY" pa "")
(setq ent1 (entlast))
(setq  en  (entget (car ent1)))

(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
p1  (nth 0 Lst)
p2  (nth 1 Lst)
p3  (nth 2 Lst)
p4  (nth 3 Lst)
)

  (command "pline" p1 p3 "");;;;;;测试
  (command "pline" p2 p4 "");;;;;;测试
  (princ)
  )

睡着的稻草人 · 发表于 2016-10-28 10:51:10

帮忙还要付豆，我去

Lisphk · 发表于 2016-10-28 11:31:11

他可能是想悬赏给别人50豆，不会操作。

回答下楼主

不管BPOLY能否正常，就看

(setq ent1 (entlast))
(setq en (entget (car ent1)))

entlast得到的是实体名，不是表，下面在 car 实体名，肯定出错了。

楼主再改改。

sicky111 · 发表于 2016-11-3 18:28:41

收费求助的还是第一次见。

账号		自动登录	找回密码
密码			立即注册

[求助] 小弟新手，求好心的各位大神帮我看看

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。