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

直线Z坐标归0

;;直线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:08

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

真实有效！！！

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

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

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

519995995 发表于 2013-12-24 11:25 static/image/common/back.gif
假如是3D长度，Z归零后会变短么

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

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

好家伙

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

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

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

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

选择集z坐标归0，论坛中有
页: [1]
查看完整版本: 直线Z坐标归0