请老师指教，为什么我的多文档语句总是错误？

wdmzslw · 发表于 2017-5-7 08:24:04

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

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

×

本帖最后由 wdmzslw 于 2017-5-7 08:26 编辑

用opendcl练习写了一个小程序，但是多文档语句总是显示错误; 错误: no function definition: C:ZWJQTT#ONDOCACTIVATED，不知道问题出在哪里，其他代码如下，请老师指点一下。;;;无文档时状态
(defun c:ZWJQTT#OnEnteringNoDocState (/)
  (c:ZWJQTT#OnInitialize)
  (princ)
)

;;;多文档状态时
(defun c:ZWJQTT#OnDocActivated (/)
  (c:ZWJQTT#OnInitialize)
  (princ)
)

;;;窗体关闭
(defun c:ZWJQTT#OnClose       (UpperLeftX UpperLeftY /)
  (dcl-Form-Close ZWJQTT)
)

;;;窗体初始化
(defun c:ZWJQTT#OnInitialize (/ UnitV size URegNum RegV)
  (dcl-ComboBox-Clear CbBx1)
  (setq UnitV (list "0.001" "0.01" "0.1" "1" "10" "100" "1000"))
  (dcl-ComboBox-AddList CbBx1 UnitV)
  (dcl-Control-SetText CbBx1 "0.001")
  (dcl-ComboBox-Clear CbBx2)
  (setq size (list "50" "150" "200" "300" "400" "500" "600"))
  (dcl-ComboBox-AddList CbBx2 size)
  (dcl-Control-SetText CbBx2 "100")
  (dcl-ComboBox-Clear CbBx3)
  (setq       scale (list "1")
  )
  (dcl-ComboBox-AddList CbBx3 scale)
  (dcl-Control-SetText CbBx3 "1")
  (dcl-Control-SetValue ChckBx8 1)
  (dcl-Control-SetReturnAsTab TxtBx1 t)
  (NewLayer)
  (princ)
)
单文档时正常运行，新建/打开一个dwg文档时，就不好用了

newer · 发表于 2017-5-7 10:19:47

新建文档时候，你的程序没加载，当然就提示函数不存在了。
你用 (vl-load-all .....)加载你的程序到所有文档。

wdmzslw · 发表于 2017-5-7 22:13:29

newer 发表于 2017-5-7 10:19

我在开始的地方增加了(vl-load-all "mylisp")语句，但是加载后反复执行，好像是死循环了，最后CAD崩溃了，怎么回事呢？

marting · 发表于 2017-5-7 22:16:12

wdmzslw 发表于 2017-5-7 22:13

你在一个和你这个程序无关的，比如初始化的程序里面用vl-load-all加载，别放到一个程序里面。你放到一个程序，每个文档加载的时候都执行VL-LOAD-ALL，那还不死循环了。

wdmzslw · 发表于 2017-5-7 22:22:04

marting 发表于 2017-5-7 22:16

;;;多文档状态时
(defun c:mytest#OnDocActivated (/)
  (vl-load-all "mylisp")
  (c:mytest#OnInitialize)
  (princ)
)
是这样么？
能加载了，可是多文档时还是不好用，显示错误：no function definition: C:mytest#ONDOCACTIVATED

marting · 发表于 2017-5-7 22:26:36

wdmzslw 发表于 2017-5-7 22:22

你把这个 (vl-load-all "mylisp") 拿到外面去。你单独执行这个。然后在执行你的程序看看。

(vl-load-all ...)不要在 mylisp.lsp里面

wdmzslw · 发表于 2017-5-7 22:35:14

本帖最后由 wdmzslw 于 2017-5-7 22:39 编辑

marting 发表于 2017-5-7 22:26

没明白，单独拿到外面是什么意思呢？再写一个lsp程序包含（vl-load-all “mytest”）语句？如何打包成vlx文件呢？还是这样？
(defun c:ZWJQTT#OnEnteringNoDocState (/)
  (c:ZWJQTT#OnInitialize)
  (princ)
)

（vl-load-all “mytest”）

;;;多文档状态时
(defun c:ZWJQTT#OnDocActivated (/)
  (c:ZWJQTT#OnInitialize)
  (princ)
)

我已经被这个（vl-load-all）函数整蒙了，就是无法实现多文档的功能，再烦请老师指教

Lispboy · 发表于 2017-5-7 22:49:24

wdmzslw 发表于 2017-5-7 22:35

放到你整个软件包的初始化的代码里面，或 acaddoc.lsp 什么的，如果用 XDRX API，放到 xdrx.lsp里面。

wdmzslw · 发表于 2017-5-7 22:59:07

Lispboy 发表于 2017-5-7 22:49

放到初始化里是指这样么？
(defun c:MYTEST#OnInitialize (/ )
(vl-load-all "quantities")
****
)

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

[求助] 请老师指教，为什么我的多文档语句总是错误？

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