[求助]在程序中用(command "_insert".....)

jianyun

在程序中用(command "_insert" .....)插入带属性的blk或dwg,因为不确定有几个属性,所以不知道用几个pause,用(while (/= 0 (getvar "cmdactive")) (command PAUSE)),请教各位有何高招?

meflying

高招用来做什么呢？你的话中好象没有问题啊

jianyun

对不起!,我的意思是:在插入带属性的blk或dwg,用(while (/= 0 (getvar "cmdactive")) (command PAUSE))并没有暂停,是否有其他办法?

BDYCAD

可以把代碼給大家看嗎? 這樣是最直接解決問題的方法了.

meflying

(defun c:test()
(command "_.insert")
(while (/= "INSERT" (getvar "cmdnames")) (command PAUSE))
)

龙龙仔

(defun TT (BLOCKNAME / KK)
(command "_.insert" BLOCKNAME)
(while (/= 0 (getvar "cmdactive"))
(initget 128)
(setq KK (getpoint))
(if KK
(command KK)
(command "")
)
)
(alert "Insert ok!")
)

jianyun

非常感谢各位的指点!! 用上面的方法插入不带属性的块时是正确的,但插入带属性的块时,会略过属性的输入!! 附上程序和一个名为AREA.DWG的图,它含有两个属性:房间面积 : \ 房间名称: \；在插入时,我不能输入它们的值 (defun TT (Dwgname ins_pt bl_scale ang / KK)
(command "_.insert" Dwgname ins_pt bl_scale bl_scale ang)
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
(alert "Insert ok!")
) (defun c:t ()
(setvar "cmdecho" 1)
(setq dwgname (getfiled "打开dwg文件" "h:\\" "dwg" 2))
(setq ins_pt (getpoint) bl_scale "" ang "")
(tt Dwgname ins_pt bl_scale ang)
(command "_move" (entlast) "" ins_pt)
)

meflying

很奇怪，我的程序直接用可以，不过代到你的程序里就不行，你尚且可以认为回答不够正确。。。可6楼的方法完全满足你的要求，为什么你不试一下他的方法，还用你自己的方法在那试，然后又说不行。。。。。。？？？？

jianyun

感谢楼上各位,终于发现了(个人认为): 主要是 (command pause) 和 (initget 128)
(setq KK (getpoint))
(if KK
(command KK)
(command "")
) 在回应"_insert" 的属性值时的区别, (command pause)会被认为是‘\’，而后者反映了真实的输入值；建议大家使用后者: (defun TT (BLOCKNAME / KK)
(setq ins_pt (getpoint) bl_scale "" ang "")
;;;(command "_.insert" BLOCKNAME)
(command "_.insert" Dwgname ins_pt bl_scale bl_scale ang)
(while (/= 0 (getvar "cmdactive"))
(initget 128)
(setq KK (getpoint))
(if KK
(command KK)
(command "")
)
;;;(command pause)
)
(alert "Insert ok!")
) (defun c:t ()
(setvar "cmdecho" 1)
(setq dwgname (getfiled "打开dwg文件" "h:\\acad-sys2\\block\\" "dwg" 2))
(tt Dwgname)
(command "_move" (entlast) "")
)