"layout" 切换图面问题

张大锤

请问各位我先使用 (command "layout" "s" "1loupingmiantu") 插入一个块
再(command "layout" "s" "Model")跳回默认作图界面

屏幕会闪一下 请问有什么办法 不去切换 但另一个图面会插入完块

masterlong

SY参数未定义  或者漏了双引号

张大锤

namezg 发表于 2018-6-26 09:33
不用切换空间，用entmake生成块参照。
(entmake
        (list

实在抱歉朋友 请问一下 10 这里要什么格式？


(10 307.984 123.216 0.0)  这是我想插入的位置



(setq pw1(42427.6 -3914.69 0.0))
(entmake
        (list
                '(0 . "INSERT")
                (cons 410 SYOUGOUZU)
                (cons 2 KAI3H)
                (cons 10 pw1)
        )
)

张大锤

edata 发表于 2018-6-28 12:35
(10 10 307.984 123.216 0.0)>
你这里多了一个10

(defun c:kai3()
(command "-insert" "KAI3" pause "" "" pause)
(setvar "osmode" 0)
(setq pw1 '(307.984 123.216 0.0))
(entmake (list '(0 . "INSERT") '(100 . "AcDbEntity") '(100 . "AcDbBlockReference") (cons 10 pw1)
(cons 2 KAI3H) (cons 410 SYOUGOUZU)))
(setvar "osmode" 695)
(princ)
)

提示错误：
; ----- Error around expression -----
(CONS 410 SYOUGOUZU)
;
; error : bad argument type <(2)> ; expected <STRING> at [DXF/XED DATA]
:

大佬能帮忙看看吗？    410这里写法不对吗？

evayleung

我也不懂，等高手支招

namezg

不用切换空间，用entmake生成块参照。
(entmake
        (list
                '(0 . "INSERT")
                (cons 410 LayoutName);布局名
                (cons 2 BlockName);块名
                (cons 10 InsertionPoint);插入点（在 OCS 中）
        )
)

张大锤

namezg 发表于 2018-6-26 09:33
不用切换空间，用entmake生成块参照。
(entmake
        (list

先感谢
再次被(entmake 打击一下 哈哈 的确比command 强太多了

自贡黄明儒

(setq pw1 '(42427.6 -3914.69 0.0))

张大锤

自贡黄明儒 发表于 2018-6-26 18:57
(setq pw1 '(42427.6 -3914.69 0.0))

晕 差个点。。。

张大锤

o(︶︿︶)o 唉 还是创建不出来


; error : bad argument type <(10 10 307.984 123.216 0.0)> ; expected <LIST> at [DXF/XED DATA]

edata

(10 10 307.984 123.216 0.0)>
你这里多了一个10