把此贴删除

500w008 · 发表于 2013-7-13 17:42:16

提示: 作者被禁止或删除内容自动屏蔽

500w008 · 发表于 2013-7-13 17:46:37

提示: 作者被禁止或删除内容自动屏蔽

wowan1314 · 发表于 2013-7-13 20:38:43

试试看行不
(apply 'min (mapcar '(lambda(x) (distance x pt0)) pt_lst))

500w008 · 发表于 2013-7-15 13:28:01

提示: 作者被禁止或删除内容自动屏蔽

阿然 · 发表于 2013-7-15 15:10:05

(car
  (vl-sort entlst
         '(lambda (e1 e2)
            (< (distance (getdxf e1 10) pt) (distance (getdxf e2 10) pt))
         )
  )
)
(defun getdxf (e dxf)
  (cdr (assoc dxf (entget e)))
)
;;;entlst是选择特定层的图元列表，pt是已知点

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

[讨论] 把此贴删除

评分

评分

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2013-7-13 17:42:16 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2013-7-13 17:46:37 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2013-7-15 13:28:01 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡