[求助]修改所有图元的标高及厚度为0
<p>修改所有图元的标高及厚度为0</p><p>整理平面图时，常常因为有图元的标高及厚度不为0，导致填充不起，甚至测量不准，有没有一个lsp程序，可以把所有图</p><p>元的标高及厚度改为0啊？</p> <p>Try FLATTEN</p> <p>(defun C:qczz()<br/> (command "layer" "s" "0" "")<br/> (setq te (ssget "x" (list (cons 0 "text"))));全图文字<br/> (if te<br/> (command "change" te "" "p" "e" "0" "t" "0" "")<br/> )<br/> (setq bl (ssget "x" (list (cons 0 "insert"))));全图块<br/> (if bl<br/> (command "change" bl "" "p" "e" "0" "t" "0" "")<br/> )<br/> (setq pl (ssget "x" (list (cons 0 "polyline"))));全图多段线<br/> (if pl<br/> (command "change" pl "" "p" "e" "0" "t" "0" "")<br/> )<br/> (setq pw (ssget "x" (list (cons 0 "lwpolyline"))));全图轻量线<br/> (if pw<br/> (command "change" pw "" "p" "e" "0" "t" "0" "")<br/> ))<br/> (setq ln (ssget "x" (list (cons 0 "line"))));全图直线<br/> (if ln<br/> (command "change" ln "" "p" "e" "0" "t" "0" "")<br/> )<br/> (setq cr (ssget "x" (list (cons 0 "circle"))));全图圆<br/> (if cr<br/> (command "change" cr "" "p" "e" "0" "t" "0" "")<br/> )<br/> (setq ar (ssget "x" (list (cons 0 "arc"))));全图弧<br/> (if ar<br/> (command "change" ar "" "p" "e" "0" "t" "0" "")<br/> )<br/> (setq pt (ssget "x" (list (cons 0 "point"))));全图点<br/> (if pt<br/> (command "change" pt "" "p" "e" "0" "t" "0" "")<br/> ))<br/> (setq wt (ssget "x" (list (cons 0 "wipeout"))));全图消隐<br/> (if wt<br/> (command "change" wt "" "p" "e" "0" "t" "0" "")<br/> ))<br/>)<br/> </p><p></p><p>如果还有特殊的图元，自己改吧～</p><p></p>
页:
[1]