请教如何获取夹点编辑的当前图元？

danxingpen · 发表于 2012-4-22 08:32:33

恩,楼主,,,很厉害,前途无限呢!呵呵

Gu_xl · 发表于 2012-4-24 19:58:06

本帖最后由 Gu_xl 于 2012-4-24 21:22 编辑

解决方案源码:

;;命令反应器
(or *cmdvlr*
(setq *cmdvlr* (vlr-command-reactor nil '((:vlr-commandWillStart . cmdstart) (:VLR-commandEnded . cmdEnd))))
)
;;数据库反应器
(or *acdbvlr*
(setq *acdbvlr* (vlr-acdb-reactor nil
'((::VLR-objectModified . acdbstart))))
)
;;命令开始反应器回调函数
(defun cmdstart (vlr lst)
(if (= "GRIP_STRETCH" (car lst))
(setq *GRIP_STRETCH_Start* t ;_ 设置启动夹点拖拽命令标志
*GRIP_STRETCH_Obj* nil ;_ 清空夹点拖拽的对象图元名列表
)
)
)
;;命令结束反应器回调函数
(defun cmdEnd (vlr lst )
(if (= "GRIP_STRETCH" (car lst))
(progn
(setq *GRIP_STRETCH_Start* nil) ;_ 清除启动夹点拖拽命令标志
;;此处可自行添加对 *GRIP_STRETCH_Obj* 处理的代码,如将夹点拖拽物体颜色变红
(mapcar '(lambda (x) (vla-put-color (vlax-ename->vla-object x) 1)) *GRIP_STRETCH_Obj*)
)
)
)
;;数据库反应器回调函数
(defun acdbstart (vlr obj)
(if *GRIP_STRETCH_Start*
(setq *GRIP_STRETCH_Obj*
(append *GRIP_STRETCH_Obj* (cdr obj)) ;_ 夹点拖拽的对象图元名列表
)
)
)

;;命令反应器 
  (or *cmdvlr* 
      (setq *cmdvlr* (vlr-command-reactor nil '((:vlr-commandWillStart . cmdstart) (:VLR-commandEnded . cmdEnd)))) 
      ) 
  ;;数据库反应器 
  (or *acdbvlr* 
      (setq *acdbvlr* (vlr-acdb-reactor nil 
       '((::VLR-objectModified . acdbstart)))) 
      ) 
;;命令开始反应器回调函数 
(defun cmdstart (vlr lst) 
  (if (= "GRIP_STRETCH" (car lst)) 
    (setq *GRIP_STRETCH_Start* t ;_ 设置启动夹点拖拽命令标志 
          *GRIP_STRETCH_Obj* nil ;_ 清空夹点拖拽的对象图元名列表 
          ) 
    ) 
  ) 
;;命令结束反应器回调函数 
(defun cmdEnd (vlr lst ) 
  (if (= "GRIP_STRETCH" (car lst)) 
    (progn 
      (setq *GRIP_STRETCH_Start* nil) ;_ 清除启动夹点拖拽命令标志 
      ;;此处可自行添加对 *GRIP_STRETCH_Obj* 处理的代码,如将夹点拖拽物体颜色变红 
     (mapcar '(lambda (x) (vla-put-color (vlax-ename->vla-object x) 1)) *GRIP_STRETCH_Obj*) 
    ) 
  ) 
) 
;;数据库反应器回调函数 
(defun acdbstart (vlr obj) 
  (if *GRIP_STRETCH_Start* 
    (setq *GRIP_STRETCH_Obj* 
           (append *GRIP_STRETCH_Obj* (cdr obj)) ;_ 夹点拖拽的对象图元名列表 
    ) 
  ) 
)

xiaxiang · 发表于 2012-4-24 20:05:54

gu版这么快就有答案了，顶！

cheng5276 · 发表于 2012-4-24 21:50:10

本帖最后由 cheng5276 于 2012-4-24 22:01 编辑

本想能够在“夹点拉伸”命令执行前按特定对象执行特定操作。
(vlr-command-reactor nil '((:vlr-commandWillStart . 回调函数A))) ;此回调函数最先执行
(vlr-object-reactor nil nil '((:vlr-modified . 回调函数B))) ;此函数虽可获得夹点拉伸的图元，但此回调函数后执行，故无法将获取的图元传递给函数A
只能在commandWillStart函数中通过如下方式去近似取得
(defun AA (pt)
(IF (NOT PT) (SETQ PT (CADR (GRREAD 1 7 0))))
(SETQ PICK_BAK (GETVAR "PICKBOX") ST T PICK_0 PICK_BAK）
)
(WHILE ST
(SETQ S1 (CAR (LAST (nentselp pt))))
(if s1
(setq st nil)
(setvar "pickbox" pick_0)
)
(setq PICK_0 (1+ pick_0))
)
(setvar "pickbox" PICK_BAK)
s1
)

cheng5276 · 发表于 2012-4-24 21:56:01

本帖最后由 cheng5276 于 2012-4-24 21:58 编辑

Gu_xl 发表于 2012-4-24 19:58
解决方案源码:
**** 本内容被作者隐藏 ****

多谢古版，可惜还是无法实现我的变态的要求，古版与danxingpen的方式，英雄所见，基本相同，佩服

Gu_xl · 发表于 2012-4-24 21:58:21

能详细说说想要执行什么操作么?

fdb2007 · 发表于 2012-4-25 08:48:21

看看高手是如何做到的

cheng5276 · 发表于 2012-4-25 11:18:37

本帖最后由 cheng5276 于 2012-4-25 11:31 编辑

因程序分支太多，以下仅列出程序的框架，大侠们应该就能知道我的真实目的了，肯请不吝赐教啊

;++++++++++通用命令反应器框架++++++++++++++
(vl-load-reactors);加载反应器库
(if (not c5276_command_reactor) (setq c5276_command_reactor (vlr-command-reactor nil
'((:vlr-commandWillStart . cheng5276_command_callbacks1) ;即将执行
(:vlr-commandEnded . cheng5276_command_callbacks2) ;执行完毕
(:vlr-commandCancelled . cheng5276_command_callbacks3) ;取消执行
(:vlr-commandFailed . cheng5276_command_callbacks4) ;执行失败
)
)
)
)
;1、命令执行前
(defun cheng5276_command_callbacks1 (a b / cmdname obj pt_now pt0 sc ss str x)
(setq c5276_cmdname (strcase (car b)))
(if (setq ss (ssget "P"))
(progn
(setq len (sslength ss))
(if (= len 1)
(setq c5276_command_s1 (ssname ss 0))
;关键就是如何获取下面这个正处于编辑状态（如夹点拉伸、文字在位编辑等命令时）的图元；
;本cheng5276_command_callbacks1的执行过程也无法通过对象修改反应器（修改前模式）去替代。
;此模式下的对象反应器，虽可取得夹点图元，却无法获取图元的任何特性，也就无法分类。同时此回调函数比命令反应器（命令执行前的回调函数）后执行，故无法把该图元传递给命令反应器。
;目前我只能通过这个近似的方式去取得。请大侠指点有没有更合适、精确的方式（CAD要是有个专门的系统变量能直接取得多好）
(setq c5276_command_s1 (cheng5276-near-pt-en PT));近似取得正处于夹点编辑状态的图元
)
(setq c5276-objstyle (vlax-ldata-GET (A->obj c5276_command_s1) "cheng5276_objstyle")) ;取自定的对象扩展数据对象类型
)
(setq c5276_command_s1 nil)
)
;++++++++++++++++++++++++++++++++++++
;++++++++++++命令总分类开始++++++++++
;++++++++++++++++++++++++++++++++++++
(cond
;******************开始命令A*************************
((AND c5276_command_s1 (= c5276_cmdname "命令A"));
(cond ;按自定义类型进一步细分
((wcmatch c5276-objstyle "类型a")
(执行 A1 过程)
)
((wcmatch c5276-objstyle "类型b")
(执行 A2 过程)
)
.....................
)
)
;******************结束命令A*************************
;******************开始命令B*************************
((AND c5276_command_s1 (= c5276_cmdname "命令B")) ;
(cond ;按自定义类型进一步细分
((wcmatch c5276-objstyle "类型c")
(执行 B1 过程)
)
((wcmatch c5276-objstyle "类型d")
(执行 B2 过程)
)
.....................
)
)
;******************结束命令B************************
)
;++++++++++++++++++++++++++++++++++++
;++++++++++++命令总分类结束++++++++++
;++++++++++++++++++++++++++++++++++++
(princ)
)
;2、命令执行完毕后
(defun cheng5276_command_callbacks2 (a b / aa att attobjlst cmdname obj pos_x pt_in pt_in_x ptnow sc st sta stb)
;++++++++++++命令总分类开始++++++++++
(cond
;******************开始命令A*************************
((AND c5276_command_s1 (= c5276_cmdname "命令A"));
(cond ;按自定义类型进一步细分
((wcmatch c5276-objstyle "类型a")
(执行 A1 过程)
)
((wcmatch c5276-objstyle "类型b")
(执行 A2 过程)
)
.....................
)
)
;******************结束命令A*************************
;******************开始命令B*************************
((AND c5276_command_s1 (= c5276_cmdname "命令B")) ;
(cond ;按自定义类型进一步细分
((wcmatch c5276-objstyle "类型c")
(执行 B1 过程)
)
((wcmatch c5276-objstyle "类型d")
(执行 B2 过程)
)
.....................
)
)
;******************结束命令B************************
)
;++++++++++++命令总分类结束++++++++++
(princ)
)
;取得点所在处的图元对象（近似法，当交叠图元较多时，所获取的对象与绘图次序有关）
;该函数无法用于DBX模式
(defun cheng5276-near-pt-en (pt / pick_0 pick_bak s1 lst)
(if (not pt) (setq pt (cadr (grread 1 7 0))))
(SETQ PICK_BAK (Getvar "pickbox") pick0 PICK_BAK)
(Setvar "pickbox" 0)
(WHILE (NOT (setq lst (nentselp PT)))
(setq pick0 (1+ PICK_0))
(Setvar "pickbox" pick0)
)
(if (> (length lst) 2) ;当对象为块或标注等复合对象时
(setq s1 (car (last lst)))
(setq s1 (car lst))
)
(Setvar "pickbox" PICK_BAK)
S1
)

;++++++++++通用命令反应器框架++++++++++++++ 
(vl-load-reactors);加载反应器库 
(if (not c5276_command_reactor) (setq c5276_command_reactor (vlr-command-reactor nil 
'((:vlr-commandWillStart . cheng5276_command_callbacks1) ;即将执行 
(:vlr-commandEnded . cheng5276_command_callbacks2) ;执行完毕 
(:vlr-commandCancelled . cheng5276_command_callbacks3) ;取消执行 
(:vlr-commandFailed . cheng5276_command_callbacks4)  ;执行失败 
) 
) 
) 
) 
 
;1、命令执行前 
(defun cheng5276_command_callbacks1 (a b / cmdname obj pt_now pt0 sc ss str x) 
(setq c5276_cmdname (strcase (car b))) 
(if (setq ss (ssget "P")) 
(progn 
(setq len (sslength ss)) 
(if (= len 1) 
(setq c5276_command_s1 (ssname ss 0)) 
;关键就是如何获取下面这个正处于编辑状态（如夹点拉伸、文字在位编辑等命令时）的图元； 
;本cheng5276_command_callbacks1的执行过程也无法通过对象修改反应器（修改前模式）去替代。 
;此模式下的对象反应器，虽可取得夹点图元，却无法获取图元的任何特性，也就无法分类。同时此回调函数 比命令反应器（命令执行前的回调函数）后执行，故无法把该图元传递给命令反应器。 
;目前我只能通过这个近似的方式去取得。请大侠指点有没有更合适、精确的方式（CAD要是有个专门的系统变量能直接取得多好） 
(setq c5276_command_s1 (cheng5276-near-pt-en PT));近似取得正处于夹点编辑状态的图元 
) 
(setq c5276-objstyle (vlax-ldata-GET (A->obj c5276_command_s1)  "cheng5276_objstyle")) ;取自定的对象扩展数据对象类型 
) 
(setq c5276_command_s1 nil) 
) 
;++++++++++++++++++++++++++++++++++++ 
;++++++++++++命令总分类开始++++++++++ 
;++++++++++++++++++++++++++++++++++++ 
(cond 
;******************开始命令A************************* 
((AND c5276_command_s1 (= c5276_cmdname "命令A")); 
(cond ;按自定义类型进一步细分 
((wcmatch c5276-objstyle "类型a") 
(执行 A1 过程) 
) 
((wcmatch c5276-objstyle "类型b") 
(执行 A2 过程) 
) 
..................... 
) 
) 
;******************结束命令A************************* 
 
;******************开始命令B************************* 
((AND c5276_command_s1 (= c5276_cmdname "命令B")) ; 
(cond ;按自定义类型进一步细分 
((wcmatch c5276-objstyle "类型c") 
(执行 B1 过程) 
) 
((wcmatch c5276-objstyle "类型d") 
(执行 B2 过程) 
) 
..................... 
) 
) 
;******************结束命令B************************ 
) 
;++++++++++++++++++++++++++++++++++++ 
;++++++++++++命令总分类结束++++++++++ 
;++++++++++++++++++++++++++++++++++++ 
(princ) 
) 
 
 
 
;2、命令执行完毕后 
(defun cheng5276_command_callbacks2 (a b / aa att attobjlst cmdname obj pos_x pt_in pt_in_x ptnow sc st sta stb) 
;++++++++++++命令总分类开始++++++++++ 
(cond 
;******************开始命令A************************* 
((AND c5276_command_s1 (= c5276_cmdname "命令A")); 
(cond ;按自定义类型进一步细分 
((wcmatch c5276-objstyle "类型a") 
(执行 A1 过程) 
) 
((wcmatch c5276-objstyle "类型b") 
(执行 A2 过程) 
) 
..................... 
) 
) 
;******************结束命令A************************* 
 
;******************开始命令B************************* 
((AND c5276_command_s1 (= c5276_cmdname "命令B")) ; 
(cond ;按自定义类型进一步细分 
((wcmatch c5276-objstyle "类型c") 
(执行 B1 过程) 
) 
((wcmatch c5276-objstyle "类型d") 
(执行 B2 过程) 
) 
..................... 
) 
) 
;******************结束命令B************************ 
) 
;++++++++++++命令总分类结束++++++++++ 
(princ) 
) 
 
 
;取得点所在处的图元对象（近似法，当交叠图元较多时，所获取的对象与绘图次序有关） 
;该函数无法用于DBX模式 
(defun cheng5276-near-pt-en (pt / pick_0 pick_bak s1 lst) 
(if (not pt) (setq pt (cadr (grread 1 7 0)))) 
(SETQ PICK_BAK (Getvar "pickbox")  pick0  PICK_BAK) 
(Setvar "pickbox" 0) 
(WHILE (NOT (setq lst (nentselp PT))) 
(setq pick0  (1+ PICK_0)) 
(Setvar "pickbox" pick0) 
) 
(if (> (length lst) 2) ;当对象为块或标注等复合对象时 
(setq s1 (car (last lst))) 
(setq s1 (car lst)) 
) 
(Setvar "pickbox" PICK_BAK) 
S1 
)

Gu_xl · 发表于 2012-4-25 11:48:11

cheng5276 发表于 2012-4-25 11:18
因程序分支太多，以下仅列出程序的框架，大侠们应该就能知道我的真实目的了，肯请不吝赐教啊

程序太长，懒得看，也不知你的最终目是想干什么！你最好用语言描述你的想法！
首先给你明确几点：
1、当夹点命令启动的同时，夹点对象就处于保护状态，尽管你可以获取该对象，但你无法对夹点对象进行任何操作！直到夹点命令结束！
2、夹点命令还没启动时，你更无从得知夹点命令要夹取哪个对象！

danxingpen · 发表于 2012-4-26 08:35:39

其实那个什么花园程序看一遍,,,,,你就知道任何我们要做的事情都应该在命令结束后进行,在命令反应器前进行对象的原数据的读取保存,在命令结束反应器里面进行被修改的数据的读取,然后根据两个结果来进行我们的修改.,,,基本法则问题,,,

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

请教如何获取夹点编辑的当前图元？

点评

浏览过的版块