[求助]请问这里有错吗

runkeji · 发表于 2003-9-9 16:06:00

gxj:dialog{
label="惯性矩的计算";
:edit_box{
key="a";
label="惯性矩: X值:";
value="a";
}
:edit_box{
key="b";
label=" Y值: ";
value="b";
}
ok_cancel;
}

xazhji · 发表于 2003-9-9 16:20:00

好像没错。

runkeji · 发表于 2003-9-9 18:36:00

能不能作个调用该DCL的程序。
怎么将VLISP程序里的变量传递呢。
(defun test()
(setq id (load_dialog "gxj"))后面我想将后面程序的变量A B 传给编辑框的VALUE
)
**********************************
(vl-load-com)
;(vl-acad-defun 'gx)
(defun c:gx (/ a ent1 ent2 ent_tt)
  (setq b (ssget "x"))
  (command "_.explode" b "")
  (setq b (ssget "x"))
  (command "_.pedit" b "" "j" "" "")
  (setq a (ssget "x"))
  (command "_.region" a "")
  (prompt "\n选择实体")
  (setq a (ssget "x"))
  (setq ent1 (ssname a 0))
  (setq ent2 (ssname a 1))
  ;(setq ent1 (car(entsel "\n选择从中减去的实体或选择外腔")))
  ;(setq ent2 (car(entsel "\n选择减去的实体或者选择内腔")))
  (while(or (not ent1)(not ent2))
(prompt"\n 请重新选择实体计算差集")
   (setq ent1 (car(entsel "\n选择从中减去的实体或选择外腔")))
   (setq ent2 (car(entsel "\n选择减去的实体或选择内腔")))
)
(if (vla-object ent1)) (vla-get-area (vlax-ename->vla-object ent2)))
(progn
   (setq ent_tt ent1)
   (setq ent1 ent2)
   (setq ent2 ent_tt)
   )
)
  (command "subtract" ent1 "" ent2 "")
  (setq ent1 (entlast))
  (princ "\n")
  ;(command "massprop" ent1 "")
  (setq ent2 (vla-get-momentofinertia (vlax-ename->vla-object ent1)))
; (setq lst (vl-list* ent2))
  (setq lst (vlax-safearray->list (vlax-variant-value ent2)))
  (setq a (rtos(car lst)1))
  (setq b (rtos (cadr lst )1))
  (princ (strcat "惯性矩: x值:" a "\n"))
  (princ (strcat "       y值:" b "\n"))
  ;(princ (strcat "惯性矩:  x值:" a)"\n");(rtos (car lst)1)  "\n"))
  ;(princ (strcat "       y值:" b)"\n");(rtos (cadr lst)1)  "\n"))
  ;(princ)
  ;exec sql begion declare section
  ;insert into sh1
; select * from sh1
; where x='x1'
;values(1, a,b)
; exec sql end declare section
  ;(xx)
  ;((lambda(/ id)
;  (setq id(LOAD_DIALOG "D:/Program Files/AutoCAD
;2004/$vld$.dcl"))
; (cond(>= id 0)
      ;(if(NEW_DIALOG "gxj" id )
;(done_dialog)
;(START_DIALOG)))
;(UNLOAD_DIALOG)
  )

meflying · 发表于 2003-9-9 19:02:00

(defun setValue(a b /)
  (setq dcl_id (load_dialog "gxj"))
  (if (not (new_dialog "gxj" dcl_id))
(exit)
  )
  (set_tile "a" (rtos a))
  (set_tile "b" (rtos b))
  (start_dialog)
  (unload_dialog dcl_id)
)

runkeji · 发表于 2003-9-10 08:44:00

运行程序提示对话框有错，第一行。符号DEFUN 不明白什么原因

runkeji · 发表于 2003-9-10 08:50:00

对话框文件能够预览，不报错，可能LISP程序有问题。你试一下

meflying · 发表于 2003-9-10 09:48:00

程序肯定是没有问题的，
而且你的报错DEFUN不明白什么意思，我可糊涂了，你的DCL文件中没有DEFUN，不可能报这个错误，如果是程序中的DEFUN，这个是定义函数的，相信你应该明白，到底是怎么个不明白法，我实在是闹不明白了。
注意：程序文件存为*.lsp，对话框文件存为gxj.dcl,且须将它放在AUTOCAD的搜索路径内。
建议你再好好看看这个：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10097&star=2&skin=0#40674

runkeji · 发表于 2003-9-10 10:16:00

ok_cancel
error

runkeji · 发表于 2003-9-10 10:48:00

不知道什么原因重写了以便，好了。谢谢你的帮忙。

[求助]请问这里有错吗

发表回复

精选推荐