阻碍
我正在绘制一艘船的图纸，其中整个甲板被制成一个块，但图纸上只显示了甲板的一部分。如果我打开块编辑器或分解块，整个层组将可见。你怎么能这样？有没有可能在同一块中添加隐藏可见的图形部分。。。 试试这个：
(defun Elstr (blkN / ent eLst)
(setq ent (entnext (tblobjname "BLOCK" blkN)))
(while ent
(setq eLst (cons (cdar (entget ent)) eLst) ent (entnext ent)))
(reverse eLst))
(defun c:bvis (/ bNme enLst)
(if (and (setq bNme (getstring "\nSpecify Block Name to Make Visible:"))
(tblsearch "BLOCK" bNme))
(progn
(setq enLst (mapcar 'entget (Elstr bNme)))
(foreach e enLst
(if (assoc 60 e)
(entmod (subst (cons 60 0) (assoc 60 e) e))
(entmod (append e (list (cons 60 0)))))))
(princ "\n<!> Block Not Found <!>"))
(command "_regenall")
(princ))
键入“bvis”运行。
页:
[1]