屏幕空白处双击执行自定义lsp程序命令！

ankang · 发表于 2011-8-30 09:59:23

用反应器如何实现双击屏幕空白区域，然后执行自定义的lsp程序命令呢！请个位高手帮吗啊！单击某种对象上面可以实现，单击屏幕却不会！请高手指点迷津啊!空白区域名称是什么呢？

Gu_xl · 发表于 2011-8-30 11:21:14

(ssget pt) 判断是否点击在空白区域！

13579 · 发表于 2011-8-30 18:45:26

如果有一定的编程技术，高手提点一下即可领悟，真奈刚入门，只略懂皮毛，还是不得要领。

xiaoyingzi · 发表于 2011-8-31 08:45:23

本帖最后由 xiaoyingzi 于 2011-8-31 08:46 编辑

;;; 加载双击反应器
(if (not *dblclkReactor*);;0 = 打开反应器
(setq *dblclkReactor*(VLR-Mouse-Reactor nil'((:VLR-beginDoubleClick . dblclkedit)))))

(defun dblclkedit(reactorObject point)
  (if dblclk-edit(dblclk-edit point))
)

;;; 自定义双击反应器Double Click Reactor
(defun dblclk-edit (dblclk_point / owner dblclk_etype)
  (setq owner (nentselp (trans (car dblclk_point) 0 1)));;指定点来选择对象
  (if (= owner nil)
   (vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) "youcommandname ")
  )
)

英雄无敌 · 发表于 2011-8-31 11:52:43

CAD空白处好像没有办法双击吧

LLXXZZ · 发表于 2011-8-31 12:42:22

先选择后命令模式下,确实不好实现空白处双击.

Gu_xl · 发表于 2011-8-31 12:45:27

本帖最后由 Gu_xl 于 2011-8-31 20:31 编辑

这样改下就能避免在空白处双击要框选另一点的响应！

;;; 自定义双击反应器Double Click Reactor
(defun dblclk-edit (dblclk_point / owner dblclk_etype p)
(setq owner (nentselp (setq p (trans (car dblclk_point) 0 1))));;指定点来选择对象
(if (and (= owner nil) (= 0 (getvar 'cmdactive))) ;_有活动命令时不起作用
(vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " YouCommand "))
)
)

xiaoyingzi · 发表于 2011-8-31 20:05:19

不明白，为什么没按版主的处理，仍然可以，也没有要求框选另一点的响应？命令行提示：指定对角点: *取消* 猜是出错函数起了作用

hf423 · 发表于 2011-9-1 19:39:41

本帖最后由 hf423 于 2011-9-2 00:09 编辑

一直再找，非常感谢！

longer1000 · 发表于 2011-9-2 14:08:05

非常感谢！

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

屏幕空白处双击执行自定义lsp程序命令！

浏览过的版块