eLockViolation错误

lj524917100

非模态对话框， 引发事情异步操作，定义了一个textbutton，如下，对DWG进入写入操作，eLockViolation错误！这个怎么解决？网上说要锁定和解锁文档，不知道具体哪个函数，怎么写,刚学ODCL,望论坛大神解惑!!!

2. (defun c:KZ_Form1_TextButton4_OnClicked (/)<div><span style="white-space:pre">                </span>(mapcar '(lambda(x y z)  </div><div><span style="white-space:pre">                                                        </span> (setq pt (caddr (l-ss-4pt x 100 "w")))</div><div><span style="white-space:pre">                                                        </span> (if (/= "" (setq s (nth 2 z)))</div><div><span style="white-space:pre">                                                                </span> (if y</div><div><span style="white-space:pre">                                                                        </span> (l-dxf-modify y 1 s)</div><div><span style="white-space:pre">                                                                        </span> (l-make-text1 s pt (list (cons 7 "l-rein") '(8 . "L-柱单层编号")(cons 40 300) '(41 . 0.7)))</div><div><span style="white-space:pre">                                                                </span> )</div><div><span style="white-space:pre">                                                        </span> )</div><div><span style="white-space:pre">                                                </span> ) ens1 ens2 l-kzs)</div><div>  )</div>

(defun c:KZ_Form1_TextButton4_OnClicked (/)<div><span style="white-space:pre">                </span>(mapcar '(lambda(x y z)  </div><div><span style="white-space:pre">                                                        </span> (setq pt (caddr (l-ss-4pt x 100 "w")))</div><div><span style="white-space:pre">                                                        </span> (if (/= "" (setq s (nth 2 z)))</div><div><span style="white-space:pre">                                                                </span> (if y</div><div><span style="white-space:pre">                                                                        </span> (l-dxf-modify y 1 s)</div><div><span style="white-space:pre">                                                                        </span> (l-make-text1 s pt (list (cons 7 "l-rein") '(8 . "L-柱单层编号")(cons 40 300) '(41 . 0.7)))</div><div><span style="white-space:pre">                                                                </span> )</div><div><span style="white-space:pre">                                                        </span> )</div><div><span style="white-space:pre">                                                </span> ) ens1 ens2 l-kzs)</div><div>  )</div>

lj524917100

1. (defun c:KZ_Form1_TextButton4_OnClicked (/)
   
2.    (mapcar '(lambda(x y z)  
   
3.                                                                          (setq pt (caddr (l-ss-4pt x 100 "w")))
   
4.                                                                          (if (/= "" (setq s (nth 2 z)))
   
5.                                                                                  (if y
   
6.                                                                                   (l-dxf-modify y 1 s)
   
7.                                                                                   (l-make-text1 s pt (list (cons 7 "l-rein") '(8 . "L-柱单层编号")(cons 40 300) '(41 . 0.7)))
   
8.                                                                                  )
   
9.                                                                          )
   
10.                                                                  ) ens1 ens2 l-kzs)
    
11.                                                                  (setq S1 (l-str-char- z1 "K" NIL) S2 "1")
    
12.                                                                  (setq S1 (itoa (1+ (atoi S1))) z1 (strcat S1 "KZ" S2))
    
13.                                                                  (l-dic-key "L-全楼柱" "编号" Z1 1)
    
14.                                                                  (dcl_Control_SetText KZ_Form1_TextBox1 z1)
    
15.   )

(defun c:KZ_Form1_TextButton4_OnClicked (/)<br />    (mapcar '(lambda(x y z)  <br />                                                                          (setq pt (caddr (l-ss-4pt x 100 "w")))<br />                                                                          (if (/= "" (setq s (nth 2 z)))<br />                                                                                  (if y<br />                                                                                   (l-dxf-modify y 1 s)<br />                                                                                   (l-make-text1 s pt (list (cons 7 "l-rein") '(8 . "L-柱单层编号")(cons 40 300) '(41 . 0.7)))<br />                                                                                  )<br />                                                                          )<br />                                                                  ) ens1 ens2 l-kzs)<br />                                                                  (setq S1 (l-str-char- z1 "K" NIL) S2 "1")<br />                                                                  (setq S1 (itoa (1+ (atoi S1))) z1 (strcat S1 "KZ" S2))<br />                                                                  (l-dic-key "L-全楼柱" "编号" Z1 1)<br />                                                                  (dcl_Control_SetText KZ_Form1_TextBox1 z1)<br />   )

lj524917100

我用entmake函数，在原点创建一个文字，单独是可以运行的，放在这个控里面就爆错

marting

非模式对话框按钮， 用  dcl-sendstring 去执行命令

用 非模式  搜索这个论坛，很多帖子说这个

lj524917100

谢谢大神指导，半路出家，上班了以后学的lisp，摸索了很久才把dcl搞清楚，界面太丑了，还是想搞个好看的界面，转向odcl

marting

lj524917100 发表于 2019-4-2 20:43
谢谢大神指导，半路出家，上班了以后学的lisp，摸索了很久才把dcl搞清楚，界面太丑了，还是想搞个好看的界 ...

都是半路出家学的LISP，多看这个论坛一起的帖子和开源函数库论坛的代码，多贴自己的代码和大家交流。