1498| 11
|
[提问] 将选中的图形另存为dxf |
9明经币
最佳答案(defun c:tt(/ ss en txt lj)
(defun dxf(en n)
(cdr(assoc n (entget en)))
)
(if (and (setq ss(ssget))(setq en(car(entsel))))
(if (or(= "MTEXT"(dxf en 0))(= "TEXT"(dxf en 0)))
(progn
(setq txt(dxf en 1))
(setq lj(getfiled "输出dxf" txt "dxf" 1))
(vl-cmdf "._DXFOUT" lj "V" "R12" "O" ss "" "")
)
)
)
(princ)
)
| ||
| ||
| ||
| ||
| ||
| ||