在vlr-pickfirstmodified反应器回调函数里面调用引起ACAD崩溃的解决方案

newer

Calling (entget) in my :vlr-pickfirstmodified callback causes AutoCAD to crash.

To reproduce this, load the Lisp code below, and then select a PViewport in a layout:

1. (vl-load-com)
   
2. (vl-load-reactors)
   
3. (vlr-miscellaneous-reactor nil (list (cons ':vlr-pickfirstmodified 'crash)))
   
4. 
   
5. (defun Crash (p1 p2 / sel ii)
   
6.    (setq sel (cadr (ssgetfirst))
   
7.            ii  0
   
8.    )
   
9.    (repeat (if sel (sslength sel) 0)
   
10.       (setq ent (ssname sel ii)
    
11.               ii  (1+ ii)
    
12.       )
    
13.       (entget ent)
    
14.    )
    
15. )
    

(vl-load-com)<br /> (vl-load-reactors)<br /> (vlr-miscellaneous-reactor nil (list (cons ':vlr-pickfirstmodified 'crash)))<br /> <br /> (defun Crash (p1 p2 / sel ii)<br />    (setq sel (cadr (ssgetfirst))<br />            ii  0<br />    )<br />    (repeat (if sel (sslength sel) 0)<br />       (setq ent (ssname sel ii)<br />               ii  (1+ ii)<br />       )<br />       (entget ent)<br />    )<br /> )<br />

解决方案：

反应器在SDI=1下工作正常，然而，在SDI=0的时候，会出现问题。通常，在编辑器反应器（editor reactor）中，实体不能打开进行写操作 (:vlr-miscellaneous-reactor is an editor reactor)，是因为文档没有锁定。在SDI=0时候，文档不会自动的锁定。通过VLISP，没有办法进行锁定文档操作，但是可以通过ARX是可行的，因此，我们可以通过在ARX，写一个文档锁定的函数给LISP调用，来解决这个问题。

下面的ARX代码，我们通过acedDefun定义两个函数（lockDoc）和（unlockDoc）

[C++] 纯文本查看 复制代码

// ----- ads_lockdoc symbol (do not rename)
static int ads_lockdoc(void)
{
    // TODO: add your code here
    acDocManager->lockDocument(acDocManager->curDocument()) ;
    // TODO: Replace the following line by your returned value if any
    acedRetVoid () ;
    return (RSRSLT) ;
}

// ----- ads_unlockdoc symbol (do not rename)
static int ads_unlockdoc(void)
{
    // TODO: add your code here
    acDocManager->unlockDocument(acDocManager->curDocument());
    // TODO: Replace the following line by your returned value if any
    acedRetVoid () ;
    return (RSRSLT) ;
}

下面是LISP在回调函数里面使用这两个函数的代码。

[Plain Text] 纯文本查看 复制代码

(vl-load-com)
(vl-load-reactors)

;;; Check to see if the ARX program is loaded
(defun isAppLoaded (app)
   (if (not (member app (arx)))
      (setq bAppLoaded :vlax-false)
      (setq bAppLoaded :vlax-true)
   )
   bAppLoaded
)
;;; Load the ARX program if necessary
(if (= (isAppLoaded "asdkLockDoc.arx") :vlax-false)
   (arxload (findfile "asdkLockDoc.arx"))
)
(vlr-miscellaneous-reactor nil (list (cons ':vlr-pickfirstmodified 'crash)))

(defun Crash (p1 p2 / sel ii)
   (lockdoc) ; lock the document
   (setq sel (cadr (ssgetfirst))
           ii  0
   )
   (repeat (if sel (sslength sel) 0)
      (setq ent (ssname sel ii)
              ii  (1+ ii)
      )
      (entget ent)
   )
   (unlockdoc) ; unlock the document
)

上面是ARX写函数的解决方案。


XDRX API提供了文档锁定和解锁的函数


xdrx_document_lock
xdrx_document_unlock

sicky111

啥也不说了，感谢楼主分享哇！

qqqincccken

谢谢提供,试用一下!!!

qqqincccken

谢谢提供,试用一下!!!

qqqincccken

谢谢版主的分享，用用了

434939575

啥也不说了，感谢楼主分享哇！