反应器问题求助

qq2222081387 · 发表于 2018-11-25 21:15:54

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

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

×

反应器新手  参考网上的资料  写了一个  特定半径的圆加中心线的反应器。现在的问题是用“CIRCLE”画我设置的半径圆CAD就崩溃画其他半径的正常，
把其他半径的圆改成我要的半径中心线也正常添加。  请大神们帮忙修改一下。
注意 “CIRCLE”  半径 5 CAD会崩溃
注意 “CIRCLE”  半径 5 CAD会崩溃
注意 “CIRCLE”  半径 5 CAD会崩溃
(foreach rtr (cdar (vlr-reactors :VLR-AcDb-Reactor)) (if (= "sjkcssj" (vlr-data rtr)) (vlr-remove rtr)))
(vlr-acdb-reactor "sjkcssj" '((:vlr-objectModified . hello)))
(setq fyq_qj_c_d 5)
(defun hello(rtr args / j_elist)
  (setq j_elist (entget (cadr args)))
  (if (= "CIRCLE" (cdr (assoc 0 j_elist)))
(if (= fyq_qj_c_d (cdr (assoc 40 j_elist)))
   (progn
(setq j_p (cdr (assoc 10 j_elist)))
(z_line (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p)) (list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p)))
(z_line (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3)) (list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3)))
)
   )
)
  )
(defun z_line(j_p0 j_p1)
  (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(100 . "AcDbLine") ;'(8 . "ÖDDÄÏß2ã")
   (cons 10 j_p0)(cons 11 j_p1))
)
  )

Lisphk · 发表于 2018-11-25 21:43:01

本帖最后由 Lisphk 于 2018-11-25 21:46 编辑

你用的是什么版本的CAD呢？
在2019下，测试你的代码能用，半径修改为5后，能画出线

建议反应器里面别用 entget , 用 vla-get-objectname 判断是否是CIRCLE，vla-get-radius获取半径，判断半径是否相等别用=，用equal加精度判断

Lisphk · 发表于 2018-11-25 21:59:03

试试把函数hello改成下面

(defun hello (rtr args / j_elist)
(setq e (cadr args)
o (vlax-ename->vla-object e))
(if (and o (= "AcDbCircle" (vla-get-objectname o)))
(if (equal fyq_qj_c_d (vla-get-radius o) 1e-5)
(progn (setq j_p (vla-get-center o)
j_p (vlax-safearray->list (vlax-variant-value j_p)))
(z_line (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p))
(list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p))
)
(z_line (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3))
(list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3))
)
)
)
)
)

qq2222081387 · 发表于 2018-11-26 07:42:38

谢谢我用的是2018版的 ActiveX 我用的不熟练还要加强

marting · 发表于 2018-11-26 10:07:57

不要用 entget和entmake
改成下面

(foreach rtr (cdar (vlr-reactors :VLR-AcDb-Reactor))
(if (= "sjkcssj" (vlr-data rtr))
(vlr-remove rtr)
)
)
(vlr-acdb-reactor
"sjkcssj"
'((:vlr-objectModified . hello))
)
(setq fyq_qj_c_d 5)
(defun hello (rtr args / j_elist)
(setq j_elist (entget (cadr args)))
(if (= "CIRCLE" (cdr (assoc 0 j_elist)))
(if (= fyq_qj_c_d (cdr (assoc 40 j_elist)))
(progn (setq j_p (cdr (assoc 10 j_elist)))
(z_line (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p))
(list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p))
)
(z_line (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3))
(list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3))
)
)
)
)
)
(defun hello (rtr args / j_elist)
(setq e (cadr args)
o (vlax-ename->vla-object e)
)
(if (and o (= "AcDbCircle" (vla-get-objectname o)))
(if (equal fyq_qj_c_d (vla-get-radius o) 1e-5)
(progn (setq j_p (vla-get-center o)
j_p (vlax-safearray->list (vlax-variant-value j_p))
)
(vla-AddLine
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
(vlax-3d-point (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p)))
(vlax-3d-point (list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p)))
)
(vla-AddLine
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
(vlax-3d-point (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3)))
(vlax-3d-point (list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3)))
)
)
)
)
)

(foreach rtr (cdar (vlr-reactors :VLR-AcDb-Reactor)) 
  (if (= "sjkcssj" (vlr-data rtr)) 
    (vlr-remove rtr) 
  ) 
) 
(vlr-acdb-reactor 
  "sjkcssj" 
  '((:vlr-objectModified . hello)) 
) 
(setq fyq_qj_c_d 5) 
(defun hello (rtr args / j_elist) 
  (setq j_elist (entget (cadr args))) 
  (if (= "CIRCLE" (cdr (assoc 0 j_elist))) 
    (if (= fyq_qj_c_d (cdr (assoc 40 j_elist))) 
      (progn (setq j_p (cdr (assoc 10 j_elist))) 
             (z_line (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p)) 
                     (list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p)) 
             ) 
             (z_line (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3)) 
                     (list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3)) 
             ) 
      ) 
    ) 
  ) 
) 
(defun hello (rtr args / j_elist) 
  (setq e (cadr args) 
        o (vlax-ename->vla-object e) 
  ) 
  (if (and o (= "AcDbCircle" (vla-get-objectname o))) 
    (if (equal fyq_qj_c_d (vla-get-radius o) 1e-5) 
      (progn (setq j_p (vla-get-center o) 
                   j_p (vlax-safearray->list (vlax-variant-value j_p)) 
             ) 
             (vla-AddLine 
               (vla-get-modelspace 
                 (vla-get-activedocument (vlax-get-acad-object)) 
               ) 
               (vlax-3d-point (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p))) 
               (vlax-3d-point (list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p))) 
             ) 
             (vla-AddLine 
               (vla-get-modelspace 
                 (vla-get-activedocument (vlax-get-acad-object)) 
               ) 
               (vlax-3d-point (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3))) 
               (vlax-3d-point (list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3))) 
             ) 
      ) 
    ) 
  ) 
)

qq2222081387 · 发表于 2018-11-26 10:08:06

Lisphk 发表于 2018-11-25 21:43
你用的是什么版本的CAD呢？
在2019下，测试你的代码能用，半径修改为5后，能画出线

大神你看一下我的CAD还是不行啊是CAD版本问题吗
直接输入5就崩溃修改是正常的

qq2222081387 · 发表于 2018-11-26 10:11:26

marting 发表于 2018-11-26 10:07
不要用 entget和entmake
改成下面

谢谢上面代码测试可以的

marting · 发表于 2018-11-26 10:22:16

qq2222081387 发表于 2018-11-26 10:11
谢谢上面代码测试可以的

记住，在反应器里面，尽量使用ActiveX，就没问题了。

tzfcn · 发表于 2018-11-26 17:25:17

反应器很有意思，实现了动态反应。

qq2222081387 · 发表于 2018-11-27 11:14:18

marting 发表于 2018-11-26 10:22
记住，在反应器里面，尽量使用ActiveX，就没问题了。

还要在麻烦您一下又遇到CAD崩溃的问题我添加了圆的半径改变删除中心线的代码直接画圆还是不行修改没有问题
ezgif.com-video-to-gif (1).gif

还有就是移动圆怎么删除之前的中心线给个思路就行

[pcode=vb,true]
(foreach rtr (cdar (vlr-reactors :VLR-AcDb-Reactor)) (if (= "sjkcssj" (vlr-data rtr)) (vlr-remove rtr) ))(vlr-acdb-reactor "sjkcssj" '((:vlr-objectModified . hello)))(setq fyq_qj_c_d 5)(vl-load-com)(defun hello (rtr args / e o j_p gpCode dataValue) (vl-load-com) (setq e (cadr args) o (vlax-ename->vla-object e) ) (if (and o (= "AcDbCircle" (vla-get-objectname o))) (cond ((equal fyq_qj_c_d (vla-get-radius o)) (setq j_p (vla-get-center o) j_p (vlax-safearray->list (vlax-variant-value j_p)) ) (vla-AddLine (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point (list (- (car j_p) fyq_qj_c_d 3) (cadr j_p))) (vlax-3d-point (list (+ (car j_p) fyq_qj_c_d 3) (cadr j_p))) ) (vla-AddLine (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point (list (car j_p) (- (cadr j_p) fyq_qj_c_d 3))) (vlax-3d-point (list (car j_p) (+ (cadr j_p) fyq_qj_c_d 3))) ) ) (T (setq j_p (vla-get-center o) j_p (vlax-safearray->list (vlax-variant-value j_p)) ) (setq ssetObj (vla-Add (vla-get-SelectionSets (vla-get-ActiveDocument (vlax-get-acad-object))) "SSET")) (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0))) (vlax-safearray-put-element gpCode 0 0) (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0))) (vlax-safearray-put-element dataValue 0 "LINE") (vla-Select ssetObj acSelectionSetCrossing (vlax-3d-point (list (+ 0.3 (car j_p)) (+ 0.3 (cadr j_p)) 0)) (vlax-3d-point (list (+ -0.3 (car j_p)) (+ -0.3 (cadr j_p)) 0)) gpCode dataValue) (vla-erase ssetObj) (vla-Delete ssetObj) ) );cond );(if (and o );defun
[/pcode]

Lisphk · 发表于 2018-11-27 12:02:10

qq2222081387 发表于 2018-11-27 11:14
还要在麻烦您一下又遇到CAD崩溃的问题我添加了圆的半径改变删除中心线的代码直接画圆还是不行修 ...

建议你应该把两条线加入的时候，用句柄添加到圆的扩展实体数据里面，删除的时候，直接通过读扩展数据得到线，而不是每次都用选择集去选他们

qq2222081387 · 发表于 2018-11-27 12:30:47

Lisphk 发表于 2018-11-27 12:02
建议你应该把两条线加入的时候，用句柄添加到圆的扩展实体数据里面，删除的时候，直接通过读扩展数据得到 ...

好的谢谢了 “扩展实体数据” 对我来说是新名称啊研究一下

谁能来个例子就更好了

newer · 发表于 2018-11-27 14:40:21

qq2222081387 发表于 2018-11-27 12:30
好的谢谢了 “扩展实体数据” 对我来说是新名称啊研究一下

谁能来个例子就更好了

扩展实体搜索论坛

qq2222081387 · 发表于 2018-11-27 18:21:07

Lisphk 发表于 2018-11-27 12:02
建议你应该把两条线加入的时候，用句柄添加到圆的扩展实体数据里面，删除的时候，直接通过读扩展数据得到 ...

请问一下在反应器里面用将 -3 组码加人列表用entmod 更新列表 CAD就崩溃在反应器里面应该用什么函数将 -3组码加入图元列表我的代码如下

(regapp "lineID")
(setq list0 (list -3 (list "lineID" (cons 1000 "333"))))
(setq list2 (append (entget e) (list list0)))
(entmod list2)

Lisphk · 发表于 2018-11-27 18:50:07

qq2222081387 发表于 2018-11-27 18:21
请问一下在反应器里面用将 -3 组码加人列表用entmod 更新列表 CAD就崩溃在反应器里面应该用什 ...

反应器里面别用 entget ,entmod,entmake这样的
用vla-getxdata, vla-setxdata

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

[求助] 反应器问题求助

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

点评

点评

点评

点评

点评

点评

点评

点评