求助,反应器问题,更新块属性时系统崩溃

byghbcx

我想做一个反应器,对图块放大或缩小时,图块属性内容会根据图块尺寸更改.
更改的内容单独运行时可以,但在反应器中不行,不知是否是反应器未运用好.请各位指教

2. [code](DEFUN test ( / ss)
3.   (defun modify (notifier-object reactor-object parameter-list /  en en1 ent ent1 scale oldatt newatt)
4.   (setq en (HandEnt (VLR-Data reactor-object)))
5.   (setq en1 (vlax-vla-object->ename notifier-object))
6.     (IF en
7.     (PROGN
8.     (SETQ ENT (ENTGET en)
9.           ENT1 ENT)
10.     (setq scale (cdr (assoc 41 ent)))
11.     (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
12.      (progn
13.        (setq OLDATT (atof (CDR (ASSOC 2 ENT1))))
14.        (setq newatt (rtos (* scale OLDATT) 2 0))
15.    (SETQ ENT1 (SUBST (CONS 1 NEWATT) (ASSOC 1 ENT1) ENT1))
16.    (ENTMOD ENT1);这一步时会崩溃
17.    (ENTMOD ENT)
18.    )
19.     )
20.   ))
21.   )
22. (defun reactor(en / reactor chl ena)
23.   (setq ena (vlax-ename->vla-object en))
24.   (SetQ chl (Cdr (Assoc 5 (EntGet en))))
25.   (setq Reactor (vlr-object-reactor (list ena)
26.          chl '((:vlr-modified . modify))))
27. )
28.   (vl-load-com)
29.   (if (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")
30.            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1)))))
31.     (reactor (ssname ss 0))
32.     )
33.   (PRINC)
34. )

[code](DEFUN test ( / ss)   (defun modify (notifier-object reactor-object parameter-list /  en en1 ent ent1 scale oldatt newatt)   (setq en (HandEnt (VLR-Data reactor-object)))   (setq en1 (vlax-vla-object->ename notifier-object))     (IF en     (PROGN     (SETQ ENT (ENTGET en)           ENT1 ENT)     (setq scale (cdr (assoc 41 ent)))     (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")      (progn        (setq OLDATT (atof (CDR (ASSOC 2 ENT1))))        (setq newatt (rtos (* scale OLDATT) 2 0))    (SETQ ENT1 (SUBST (CONS 1 NEWATT) (ASSOC 1 ENT1) ENT1))    (ENTMOD ENT1);这一步时会崩溃    (ENTMOD ENT)    )     )   ))   ) (defun reactor(en / reactor chl ena)   (setq ena (vlax-ename->vla-object en))   (SetQ chl (Cdr (Assoc 5 (EntGet en))))   (setq Reactor (vlr-object-reactor (list ena)          chl '((:vlr-modified . modify)))) )   (vl-load-com)   (if (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1)))))     (reactor (ssname ss 0))     )   (PRINC) )

[/code]

xxsheng

你这个是什么版本的啊?怎么有些东西都看不懂了,
反应器第一法则:不要用命令和entmod等autolisp,,,用vlisp的vla方法

byghbcx

改成vla还是不行

2. (DEFUN test ()
3.     (defun modify (notifier-object reactor-object parameter-list /  )
4.   (setq en (HandEnt (VLR-Data reactor-object)))
5.   (setq en1 (vlax-vla-object->ename notifier-object))
6.     (IF en
7.     (PROGN
8.     (SETQ ENT (ENTGET en))
9.     (setq scale (cdr (assoc 41 ent)))
10.     (if (/= scale 1)
11.     (if (safearray-value
12.             (setq atts
13.                    (vlax-variant-value
14.                      (vla-getattributes (vlax-ename->vla-object en))
15.                    )
16.             )
17.           )
18.         (progn
19.             (mapcar
20.               '(lambda (x)
21.                  (progn
22.        (setq OLDATT (atof (vla-get-textstring x)))
23.                      (setq newatt (rtos (* scale OLDATT) 2 0))
24.                      (vla-put-textstring x newatt)
25.      )
26.                  )
27.               (vlax-safearray->list atts))
28.    (vla-update (vlax-ename->vla-object en))
29.             )
30.         )
31.       )
32.   ))
33.   )
34. (defun reactor(en / reactor)
35.   (setq ena (vlax-ename->vla-object en))
36.   (SetQ chl (Cdr (Assoc 5 (EntGet en))))
37.   (setq Reactor (vlr-object-reactor (list ena)
38.          chl '((:vlr-modified . modify))))
39. )
40.   (vl-load-com)
41.   (if (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")
42.            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1)))))
43.     (reactor (ssname ss 0))
44.     )
45.   (PRINC)
46. )

(DEFUN test ()     (defun modify (notifier-object reactor-object parameter-list /  )   (setq en (HandEnt (VLR-Data reactor-object)))   (setq en1 (vlax-vla-object->ename notifier-object))     (IF en     (PROGN     (SETQ ENT (ENTGET en))     (setq scale (cdr (assoc 41 ent)))     (if (/= scale 1)     (if (safearray-value             (setq atts                    (vlax-variant-value                      (vla-getattributes (vlax-ename->vla-object en))                    )             )           )         (progn             (mapcar               '(lambda (x)                  (progn        (setq OLDATT (atof (vla-get-textstring x)))                      (setq newatt (rtos (* scale OLDATT) 2 0))                      (vla-put-textstring x newatt)      )                  )               (vlax-safearray->list atts))    (vla-update (vlax-ename->vla-object en))             )         )       )   ))   ) (defun reactor(en / reactor)   (setq ena (vlax-ename->vla-object en))   (SetQ chl (Cdr (Assoc 5 (EntGet en))))   (setq Reactor (vlr-object-reactor (list ena)          chl '((:vlr-modified . modify)))) )   (vl-load-com)   (if (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1)))))     (reactor (ssname ss 0))     )   (PRINC) )

龙龙仔

請不要更新發出事件通知的物件。

此事件會導致物件觸發可能仍在進行中的回覆函數，以及當回覆函數被啟動時仍由 AutoCAD 使用中的物件。因此，請勿試圖從同一個物件的回覆函數更新物件。不過，您可以從觸發事件的物件中安全地讀取資訊。例如，假設您的地板上鋪滿了地磚，然後您將反應裝置貼到地板的邊界。如果您更改了地板的尺寸，反應裝置回覆函數將會自動增加或減少地磚來鋪滿新的區域。此函數將可讀取邊界的新區域，但無法嘗試對邊界本身進行任何變更。

xxsheng

在很多cad命令运行中(command-end之前),命令运行对象数据是只读的,,,所以这种东西有两种方案:在vlr-modified中利用sendcommand(不推荐,因为复杂对象,例如多段线,在这个时间里读取的端点还是没有修改前的),在vlr-modified中标志,在command-end反应器里面做数据的修改.
另外说一下,你的 (if (/= scale 1)是不是有问题?例如我选择缩放2倍,你成功的运行反应器更改属性为2,这个时候应该还会引起你的反应器,因为你更改了该块,最后,,一个循环.

byghbcx

谢谢龙版主的指点,我可不可以用图块的中的某一个子物体作为发出事件通知的物体

龙龙仔

注意xxsheng說的
在vlr-modified中標誌,在command-end反應器裡面做數據的修改

;;如何記錄比例才是問題點??
;;圖塊屬性內容會根據圖塊尺寸更改!!圖塊尺寸是甚麼??
;;屬性值=2,圖塊比例=1,放大3倍話,圖塊比例=3,屬性值2*3=6
;;縮少1/2倍話,圖塊比例=1.5,屬性值6*1.5=9...!!!???

byghbcx

谢谢各位的指点,这个问题我已经解决了,我是用tagstring中记录了原始尺寸,然后用比例*tagstring得到新的尺寸.