[求助]：哪位高手高手高高手来帮兄弟一把？

VIVID

自定义天正3.52右键菜单时，我遇到一个问题，在双线墙菜单添加顺序插门、中心插门、垛宽插门（顺序插窗、中心插窗、垛宽插窗）（顺序插高窗、中心插高窗、垛宽插高窗）时，如何控制插入的是门，还是窗（高窗）？
    如果在天正菜单内指定了门或是窗（高窗），那么用右键菜单才能正确的插入门或窗（高窗），我应该怎样自定义才能只用右键菜单就可以选择插门，还是插窗（高窗）？
    哪位高手高手高高手来帮兄弟一把？

zdarc

看看我的天正3.x的简化命令。

zdarc

;;顺序插门
(defun c:zd_di ()
  (_@ld "window0")
  (progn (setq _wdins 2) (princ))
  (c:wdin)
)
;;顺序插窗
(defun c:zd_wi ()
  (_@ld "window0")
  (progn (setq _wdins 1) (princ))
  (c:wdin)
)
;;中心插门
(defun c:zd_din        ()
  (_@ld "window0")
  (progn (setq _wdins 2) (princ))
  (c:wdinc)
)
;;中心插窗
(defun c:zd_win        ()
  (_@ld "window0")
  (progn (setq _wdins 1) (princ))
  (c:wdinc)
)

VIVID

zdarc ，你最好直接告诉我在右键菜单怎样写，我对LISP编写并不精通，呵呵呵……不好意思！！

金剑

把zdarc提交的代码加到acad.lsp

编辑tch.tmn

***WLTOOL
Wall=0,"LINE,ARC",8,"WALL*"
       [->&0.通用编辑]
          [&1.删除        (Erase)]Erase
          [&2.复制        (Copy)]Copy
          [&3.移动        (Move)]Move
          [&4.镜像        (Mirror)]Mirror
          [<-&5.旋转        (Rotate)]Rotate
       [--]
       [&1.双线裁剪](_@ld"wtrim");wtrim;
       [&2.墙线修补](_@ld"wltool2");wmend;
       [&3.连接线段](_@ld"tool1");join;
       [&4.墙线圆角](_@ld"road");filwall;
       [--]
       [&5.增加墙垛](_@ld"wltool1");addbutr;
       [&6.消去墙垛](_@ld"wltool1");delbutr;
       [&7.定义隔墙](_@ld"gewall");pwallmk;
       [&8.隔墙复原](_@ld"gewall");pwallrs;
       [&9.墙线复制](_@ld"wltool");wlcopy1;
       [--]
       [&A.加保温层](_@ld"hpwall");hpwallp;
       [&B.墙线移动](_@ld"wltool3");wlmove;
       [&C.改变墙厚](_@ld"wltool4");wlthick;
       [&D.墙线擦除](_@ld"wltool");wlerase;
       [->&E.插入门窗]
             [顺序插门]zd_di
             [顺序插窗]zd_wi
             [中心插门]zd_din
             [<-中心插窗]zd_win