将多段线70组码值 改为 (70 . 1) 即可 ;;;不闭合多段线修改为闭合,并将70组码值修改为1
(defun c:tt()
(setq ss (ssget '((0 . "lwpolyline") (-4 . "<or") (70 . 0) (70 . 128) (70 . 129) (-4 . "or>"))))
(if ss
(progn
(repeat (setq n (sslength ss))
(setq en (ssname ss (setq n (1- n)))
enl (entget en)
enl (subst '(70 . 1) (assoc 70 enl) enl)
)
(entmod enl)
)
)
)
(princ)
) 你用尧创批量打印中心吧,不管图框有多少,也不管是用直线、多段线还是多义线绘制的,或者是块或嵌套块中的实体,尧创批量打印中心都能智能识别的,两分钟应该就可以全部打印完成了
页:
1
[2]