4533| 13
|
将所有图层的线宽一键改为0.00mm |
5明经币
最佳答案(defun c:cxk0 ( / first lay name )
(vl-load-com)
(setq first t)
(while (setq lay (tblnext "layer" first))
(setq first nil)
(setq name (cdr (assoc 2 lay)))
(vla-put-lineweight (vlax-ename->vla-object (tblobjname "layer" name)) acLnWt000)
)
(princ)
)
(princ "\n 命令是 CXK0 ")(princ)
;|线宽例子;;
acLnWtByLayer
acLnWtByBlock
acLnWtByLwDefault
acLnWt000
acLnWt005
...
| ||
| ||
| ||
| |
| ||
评分
| ||||||||
| |
| |