CAD批量插入块的方法

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”)))
链接