[求助]：vlr-copied怎么让对象被拷贝后被激活

snsj · 发表于 2004-3-11 15:39:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

vlr-copied总在对象拷贝过程中被激活，如何在拷贝完成后再激活～～～

eachy · 发表于 2004-3-13 08:28:59

还需要定义一个 vlr-command-ended 反应器和回调函数，vlr-copied 回调函数用一个全局变量（或更新反应器的参数）存储必要的数据，最后调用 command 的回调函数修改实体。

LUCAS · 发表于 2004-3-15 12:38:58

;|snsj
vlr-copied總在對像拷貝過程中被激活，如何在拷貝完成後再激活～～～
[color=red]
(defun COPYED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST)
(alert " 拷貝進行中!!!")
)
(setq obj (vlax-ename->vla-object (car (entsel))))
(setq COPY_REACTOR
(vlr-object-reactor
(list obj)
NIL
'((:vlr-copied . COPYED))
)
)
[/color]
|;
[color=blue]
;;改用--建構編輯器反應裝置物件
;;(vlr-editor-reactor data callbacks)
;; :vlr-commandEnded 完成 AutoCAD 指令。
(defun COPYED (REACTOR-OBJECT PARAMETER-LIST)
(if (= (car PARAMETER-LIST) "COPY")
(alert " 拷貝! OK!!!")
)
)
;;-------------------------------------------
(setq COPY_REACTOR
(vlr-editor-reactor
NIL
'((:vlr-commandended . COPYED))
)
)
[/color]
;;取消反應器
(defun CLEAN_COPY_REACTOR ()
(vlr-remove COPY_REACTOR)
)
;;(vlr-remove-all :vlr-editor-reactor)

;|snsj 
vlr-copied總在對像拷貝過程中被激活，如何在拷貝完成後再激活～～～ 
[color=red] 
(defun COPYED (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST) 
  (alert "  拷貝進行中!!!") 
) 
(setq obj (vlax-ename->vla-object (car (entsel)))) 
(setq COPY_REACTOR 
       (vlr-object-reactor 
         (list obj) 
         NIL 
         '((:vlr-copied . COPYED)) 
       ) 
) 
[/color] 
|; 
 
 
[color=blue] 
;;改用--建構編輯器反應裝置物件 
;;(vlr-editor-reactor data callbacks) 
;;  :vlr-commandEnded 完成 AutoCAD 指令。 
(defun COPYED (REACTOR-OBJECT PARAMETER-LIST) 
  (if (= (car PARAMETER-LIST) "COPY") 
    (alert "  拷貝! OK!!!") 
  ) 
) 
 
;;------------------------------------------- 
(setq COPY_REACTOR 
       (vlr-editor-reactor 
         NIL 
         '((:vlr-commandended . COPYED)) 
       ) 
) 
[/color] 
;;取消反應器 
(defun CLEAN_COPY_REACTOR () 
  (vlr-remove COPY_REACTOR) 
) 
 
;;(vlr-remove-all :vlr-editor-reactor)

snsj · 发表于 2004-3-15 15:03:49

请问龙兄，在你的例子里编辑发应器的vlr-commandended和直接用命令反应器有什么区别，期待指点

aeo · 发表于 2004-3-15 16:50:07

红色的是copy的时候作出反应

蓝色的是"编辑完成"作出反应,并看这"编辑"是不是"copy",是copy就执行.

snsj · 发表于 2004-3-15 17:32:17

呵呵，本来我的想法是对单个物体的，物体发应器看来还要加过滤来实现，其实开始是想只有某个物体被拷贝结束后才激活，其他的物体被拷贝后无效
搞个好玩的东西
例：用TEXT在CAD中插入数字1，然后用COPY拷贝，接着拷贝。。
把其中一个数字改成A或者a再拷贝。。。。。
把一个数字改成1.sfsfsfsf再拷贝测试

[php]
-----------------------------------------------------
(setq comdrec (vlr-command-reactor nil '((:vlr-Commandended . endcommand))))
-------------------------------------------------------------------------------------------
(defun endcommand (calling-reactor endcommandInfo / thecommandend en-vla str getstr kjh x y glty n)
(setq thecommandend (nth 0 endcommandInfo))
; -----------------------------------------------------------------------------------
(setq en-vla (vlax-ename->vla-object (entlast)))(setq getstr(vla-get-TextString en-vla))
(mapcar
'(lambda (x)
(if (or(< x 48)(> x 57))
(setq kjh (cons x kjh))
)
)(vl-string->list getstr)
)
(cond((and(= thecommandend "COPY")(/= kjh nil))
(vla-put-TextString en-vla(vl-string-subst (vl-list->string (list(1+
(setq str(car(vl-string->list getstr))))))(vl-list->string (list str)) getstr)))
((= thecommandend "COPY")(vla-put-TextString en-vla (rtos(1+(atof getstr))2 0)))
)
)
;--------------------------------------------------------------------------
(defun c:qx ()
(vlr-remove comdrec)
(princ)
)
[/php]

[php] 
----------------------------------------------------- 
  (setq comdrec (vlr-command-reactor nil '((:vlr-Commandended . endcommand)))) 
  ------------------------------------------------------------------------------------------- 
(defun endcommand (calling-reactor endcommandInfo / thecommandend en-vla str getstr kjh x y glty n) 
  (setq thecommandend (nth 0 endcommandInfo)) 
 ; ----------------------------------------------------------------------------------- 
   (setq en-vla (vlax-ename->vla-object (entlast)))(setq getstr(vla-get-TextString en-vla)) 
  (mapcar 
    '(lambda (x) 
       (if (or(< x 48)(> x 57)) 
         (setq kjh (cons x kjh)) 
         ) 
       )(vl-string->list getstr) 
       ) 
    (cond((and(= thecommandend "COPY")(/= kjh nil))      
    (vla-put-TextString en-vla(vl-string-subst (vl-list->string (list(1+ 
(setq str(car(vl-string->list getstr))))))(vl-list->string (list str)) getstr))) 
((= thecommandend "COPY")(vla-put-TextString en-vla (rtos(1+(atof getstr))2 0))) 
         ) 
  ) 
;--------------------------------------------------------------------------    
(defun c:qx () 
(vlr-remove comdrec) 
  (princ) 
  ) 
[/php]

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

[求助] [求助]：vlr-copied怎么让对象被拷贝后被激活

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块