CAD批量插入块的方法 1.autolisp
(defun c:minsert()
(command “insert”)
)
注:此方法必须手动输入参数
2.scr
open test.dwg
insert *test.dwg 0,0,0 1 0
*test1.dwg 0,0,0 1 0
注:此方法加载块后,块直接分解
链接
3.直接在命令栏输入
" -insert
test.dwg
0,0,0
"
注:此方法加载块后,块不分解
CAD中批量更改字体样式的方法 (defun c:ztgs()(vl-load-com)(setq doc(vla-get-Activedocument(vlax-get-acad-object)))(setq styles(vla-get-TextStyles doc))(vlax-for style styles (setq name(vla-get-name style)) (if (/= name "Standard") (command "style" name "arial" "" "" "" "" "") (princ (strcat "n字体样式名:"name)) ) )(princ))
链接1
链接2
使用lisp的方法
1.加载lisp:输入命令appload
2.执行lisp:直接输入defun c:后的函数作为命令
SSGET如何过滤指定图层
(SSGET '((8 . “AAA”)))
链接