直线Z坐标归0

自贡黄明儒 · 发表于 2013-12-24 09:31

;;直线Z坐标归0
;;(LineZto0 (entget(ssname (ssget ":E:S" '((0 . "LINE"))) 0)))
(defun LineZto0 (en / X)
  (mapcar
'(lambda (x)
   (setq en (subst (cons x (mapcar '+ '(0 0) (cdr (assoc x en)))) (assoc x en) en))
   )
(list 10 11)
  )
  (entmod en)
)

edata · 发表于 2013-12-24 10:08

本帖最后由 edata 于 2013-12-24 10:13 编辑

真实有效！！！

519995995 · 发表于 2013-12-24 11:25

假如是3D长度，Z归零后会变短么

llsheng_73 · 发表于 2013-12-24 13:46

519995995 发表于 2013-12-24 11:25
假如是3D长度，Z归零后会变短么

如果归零前起止点Z值不一样，归零后显然会变短

1993063 · 发表于 2013-12-24 16:44

好家伙

ysq101 · 发表于 2013-12-24 20:32

黄大师...要来就来个所有图元Z归0

自贡黄明儒 · 发表于 2013-12-24 21:24

ysq101 发表于 2013-12-24 20:32
黄大师...要来就来个所有图元Z归0

选择集z坐标归0，论坛中有

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

[讨论] 直线Z坐标归0

本帖子中包含更多资源