如何实现双击编组中的文字执行DDEDIT命令？

theisland

常把一些注释跟其他图元编组（个人感觉在选择上很方便），在编组打开的情况下，双击编组中的文字执行的是对象特性命令，即打开了对象特性表，如果在编组打开情况下想要编辑其中的文字，只能输入ED命令编辑，感觉稍有不便。各位大侠是否有办法呢？

我看CAD2010的cui中有自定义双击的选项，不知道能不能用那个实现 ，静候热心的大侠相助！

自贡黄明儒

;;保证双击调用ddedit修改文字命令
(defun HH:DBLCLKEDIT ()
  (vl-catch-all-apply 'setvar (list "DBLCLKEDIT" 1))
  (vl-catch-all-apply 'setvar (list "mtexted" ""))
  (vl-catch-all-apply 'setvar (list "pickfirst" 1))
)

429014673

自贡黄明儒 发表于 2013-10-25 08:03
;;保证双击调用ddedit修改文字命令
(defun HH:DBLCLKEDIT ()
  (vl-catch-all-apply 'setvar (list "DBLC ...

黄总，想请教你一个问题，我想双击标注，就触发命令A，用LSP 这个有没办法呀，

andyhua

黄总的代码怎么用了，复制到CAD的命令行，再双击好像无效啊？多谢

theisland

自贡黄明儒 发表于 2013-10-25 08:03
;;保证双击调用ddedit修改文字命令
(defun HH:DBLCLKEDIT ()
  (vl-catch-all-apply 'setvar (list "DBLC ...

加载程序后没有反应，怎么回事呢？还有就是我不希望加载程序后双击块等其他图元都激发ed命令