大家好，
加载图形时，它不接受“命令”行，例如（命令“insert”“isolayer”nil）
它根据以下代码接受SETVAR
我复制并修改了lisp以适应。
打开图形后，它将接受lisp中的命令
插入的所有块都在路径中
我能做这个混搭吗？
Thx提前
- (defun c:zz (/ cd vgad vgao vgd)
- (vl-load-com)
- (setq vgao (vlax-get-acad-object))
- (setq vgad (vla-get-activedocument vgao))
- (setq vgd (vla-get-documents vgao))
- (setq fname (getfiled "" "D:\\AA-Programs\\A-PipingISO\\Borders" "dwg" 16))
- (if
- (= 0 (getvar "SDI"))
- (vla-activate (vla-open vgd fname)) ; if sdi = 0
- (vla-sendcommand vgad (strcat "(command "_open")\n" fname "\n")); if sdi = 1
- ) ; if
- (setvar "cmdecho" 1)
- (setvar "blipmode" 0)
- (setvar 'osmode 53)
- ;(command "insert" "isolayer" nil)
- ;(command "insert" "dimstyle" nil)
- ;(command "ltscale" "0.2")
- ;(command "textsize" "2.5")
- ;(command "snapstyl" "1")
- ;(command "grid" "off")
- ;(command "ORTHO" "ON")
- ;(command "zoom" "e")
- (princ)
- )
| 
置顶卡
