求助：在指定图层插入块

yangw761 · 发表于 2012-3-12 11:36:50

本帖最后由 yangw761 于 2012-3-12 12:22 编辑

麻烦高手看下，命令那里不对啊，
插入图层后，还在0层，没有到制定层。

还有就是感觉命令太罗嗦了，能不能简化点

(defun c:123 ()    (SETVAR "CMDECHO" 0)
  (setq LA (getvar "clayer"))
  (IF (NULL (TBLSEARCH "LAYER" "Inverter")) (COMMAND "-LAYER" "M" "Inverter" "C" "30" "" ""));如果没有Inverter图层就新建Inverter图层
  (COMMAND "-layer" "S" "Inverter"  "")
  (command "INSERT" "D:\\PVtool\\support\\KACO9600-Ele.dwg" "s" "1" "R" "0")
  (princ)
  (setvar "clayer" LA)
  (prin1)
)

Andyhon · 发表于 2012-3-12 12:04:38

您得试着在命令列先确认所需的对映引数

yangw761 · 发表于 2012-3-12 12:42:27

楼上的您好，
我试着用如下代码：
(command "_insert" "KACO9600-Ele" (getpoint "\n图块插入点:") 1 1 0)

可以试用，但是提示：
需要点或选项关键字。
; 错误: 函数被取消
指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)]:

也可以正常使用，我用的2012，请教版主如何处理

yjr111 · 发表于 2012-3-12 20:44:23

(VL-CMDF "_insert" "KACO9600-Ele" (getpoint "\n图块插入点:") 1 1 0)

yangw761 · 发表于 2012-3-14 12:43:03

还是不行啊，

yangw761 · 发表于 2012-3-14 12:44:19

就是希望将图块插入指定的图层，插入图块完成后，再返回当前图层！

yangw761 · 发表于 2012-3-14 14:58:35

本帖最后由 yangw761 于 2012-3-14 15:02 编辑

  (setq LA (getvar "clayer"))
  (IF (NULL (TBLSEARCH "LAYER" "Inverter")) (COMMAND "-LAYER" "M" "Inverter" "C" "30" "" ""));如果没有Inverter图层就新建Inverter图层
  (COMMAND "-layer" "S" "Inverter"  "");置为当前图层
(command "-insert" (gxl-Blk-Check  "KACO9600-Ele") (getpoint "\n指定图块插入点:") 1 1 0);插入图块
  (setvar "clayer" LA)

上面的这个就可以实现在指定的图层插入块，只是插入图块是不显示虚影，可以使用，只是使用起来不太舒服

(setq LA (getvar "clayer"))
  (IF (NULL (TBLSEARCH "LAYER" "Inverter")) (COMMAND "-LAYER" "M" "Inverter" "C" "30" "" ""));如果没有Inverter图层就新建Inverter图层
  (COMMAND "-layer" "S" "Inverter"  "");置为当前图层
(command "-INSERT" (gxl-Blk-Check  "KACO9600-Ele")  "s" "1" "R" "0" );插入图块
  (setvar "clayer" LA)
这个命令就不可以实现在指定的图层插入块

粉色为两个命令的不同点

望高手解释下什么原因啊？？

账号		自动登录	找回密码
密码			注册