加载图形后的设置
大家好，加载图形时，它不接受“命令”行，例如（命令“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)
) 试试这个：
您正在尝试发送新行“\n”。这不是“回车”。空格或“”相当于“enter”
我仍然不确定这是否有效。
页:
[1]