明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1638|回复: 8

[求助]请问这里有错吗

[复制链接]
发表于 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;
}
发表于 2003-9-9 16:20:00 | 显示全部楼层
好像没错。
 楼主| 发表于 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-get-area (vlax-ename->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)
  )
发表于 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)
)
 楼主| 发表于 2003-9-10 08:44:00 | 显示全部楼层
运行程序提示对话框有错,第一行。符号DEFUN 不明白什么原因
 楼主| 发表于 2003-9-10 08:50:00 | 显示全部楼层
对话框文件能够预览,不报错,可能LISP程序有问题。你试一下
发表于 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
 楼主| 发表于 2003-9-10 10:16:00 | 显示全部楼层
ok_cancel
  error
 楼主| 发表于 2003-9-10 10:48:00 | 显示全部楼层
不知道什么原因重写了以便,好了。谢谢你的帮忙。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 22:33 , Processed in 0.182646 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表