lisp顺序获得矩形四个点的坐标分别赋值给s1—s4
答案:2 悬赏:0 手机版
解决时间 2021-03-30 14:28
- 提问者网友：姑娘长的好罪过
- 2021-03-30 07:17
lisp顺序获得矩形四个点的坐标分别赋值给s1—s4
最佳答案
- 五星知识达人网友：雾月
- 2020-08-04 19:36
我不会~~~但还是要微笑~~~：）
全部回答
- 1楼网友：渡鹤影
- 2021-03-28 07:39
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))
(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
s1 (nth 0 Lst)
s2 (nth 1 Lst)
s3 (nth 2 Lst)
s4 (nth 3 Lst)
)
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯