高价求购双击块获取块名称，，并调用外部程序的程序

yxh8292 · 发表于 2011-7-3 17:27:25

yxh8292 · 发表于 2011-7-3 18:02:30

本人QQ：87267082

ahhfsy · 发表于 2011-7-4 11:52:40

我也想要啊。我看别人的批量打印有直接在图上选取图块的功能，也不晓得怎么实现的

caoyin · 发表于 2011-7-4 14:16:49

本帖最后由 caoyin 于 2011-7-4 14:18 编辑

(or @dClick-BlkRef
(setq @dClick-BlkRef
      (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . dClick-getBlkName)))
)
)

(defun dClick-getBlkName (X Y / A)
  (and (setq A (nentselp (car Y)))
   (setq A (vlax-ename->vla-Object (last (last A))))
   (member (vla-get-objectName A) '("AcDbBlockReference"));;其他类型可在后面表中添加，如多重块等
   (alert (strcat "块名是:\n"(vla-get-name A)))
  )
)

yxh8292 · 发表于 2011-7-5 19:41:14

那我怎么启动D:/(vla-get-name A).exe文件呢？

zark · 发表于 2011-7-5 20:59:16

回复 caoyin 的帖子

版主，怎么避免双击块后的又执行 _.refedit  命令？还有，双击非块对象会出错。做了一个小修改，不懂完不完整。经有限次的调试暂时可以
(and (setq A (nentselp (car Y)))
   (= (length A) 4);测试了很多类型图元，只有块是4个元素
   (setq A (vlax-ename->vla-Object (last (last A))))
   (member (vla-get-objectName A) '("AcDbBlockReference"));;其他类型可在后面表中添加，如多重块等
   )

zark · 发表于 2011-7-5 21:47:47

回复 caoyin 的帖子

(defun dClick-getBlkName (X Y / A)
  (if
(and (setq A (nentselp (car Y)))
   (= (length A) 4);测试了所有类型图元，只有块是4个元素
   (setq A (vlax-ename->vla-Object (last (last A))))
   (member (vla-get-objectName A) '("AcDbBlockReference"));;其他类型可在后面表中添加，如多重块等
   )
(progn
   (vl-catch-all-apply 'arxunload '("acdblclkedit.arx"))
   (sssetfirst nil)
      (alert "OK")
   (vl-catch-all-apply 'arxload '("acdblclkedit.arx"))
   )
  )
)
哈哈哈~~~这个应该行了

yxh8292 · 发表于 2011-7-5 23:19:57

兄弟跟我说下，怎么启动D:/(vla-get-name A).exe文件呀？？

yxh8292 · 发表于 2011-7-6 15:12:40

回复 zark 的帖子

大侠我在2004里试了你的程序，，，好像不行吗

zark · 发表于 2011-7-6 19:02:56

回复 yxh8292 的帖子

你前面有没有
(or @dClick-BlkRef
(setq @dClick-BlkRef
(vlr-mouse-reactor nil '((:vlr-beginDoubleClick . dClick-getBlkName)))
)
)

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

高价求购双击块获取块名称，，并调用外部程序的程序

浏览过的版块