[求助]请教各位好友

danxingpen

(defun spl2d(splent / allent ent appident)
  (setq allent(entget splent '("*"))
    ent(entget splent)
    appident(vl-remove-if '(lambda(x)(member x ent)) allent))
  (setq ent(mapcar '(lambda(x)(if (or (eq 10 (car x))(eq 11 (car x)))
                (list (car x) (cadr x)(caddr x) 0)
                x
                )) ent))
  (setq ent(append ent appident))
  (entmod ent)
  (princ)
)
;;;不好意思,习惯性把函数名写成了c:开头,好像不对,有可能会改变形状

无痕

7楼的方法绝对可行，除非曲线在块内

danxingpen

我也试过了,7楼的方法对于三维样条曲线却是没有办法归0,,这个还和版本有关系????

f5612140

可試試  flatten

董堃

先得到点表

替换各点的Z坐标为0

重绘

wangp100

自已顶一下