设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助] 请高手帮忙调试
返回列表 发新帖
查看: 1740|回复: 6

[求助] 请高手帮忙调试

[复制链接]
windtalkers
发表于 2010-5-4 16:07:00 | 显示全部楼层 |阅读模式

本帖子中包含更多资源

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

x
回复

使用道具 举报

danxingpen
发表于 2010-5-5 08:48:00 | 显示全部楼层

很简单,找到你那个(- 轮廓面积 除料面积)语句,更改为(vl-prin1-to-string (- 轮廓面积 除料面积))

具体的程序就没有看了!

回复 支持 反对

使用道具 举报

windtalkers
 楼主| 发表于 2010-5-5 09:25:00 | 显示全部楼层

请高手明示!不甚感激

小弟已想了2天,快崩溃了,请帮忙看一下lisp语句哪有问题!

回复 支持 反对

使用道具 举报

danxingpen
发表于 2010-5-5 10:52:00 | 显示全部楼层

不好意思，没有注意看，运行了一下感觉能用，就是导出不能用而已啊！没有出错呢！

回复 支持 反对

使用道具 举报

hbllw
发表于 2010-5-5 13:48:00 | 显示全部楼层
  2. (defun c:kg (/ std id a b l c p d e )
  3.     (setvar "osmode" 0)
  4.         (setq gear_list1_list(list 0.5 0.6 0.8 1.0 1.2 1.5 1.6 1.8 2.0 2.5 2.8 3.0 3.2 3.5 4.0 5.0 6.0 8.0 10.0 12.0 14.0 15.0 16.0 18.0 20.0 ))
  5.         (setq gear_list2_list(list 7.85 2.7 0.8 1.0 ))
  6.         
  7.   (defun getdata ()
  8.         (setq a  (atof (get_tile "s_out")))
  9.         (setq b  (atof (get_tile "s_in")))
  10.         (setq l  (get_tile "gear_list1"))
  11.         (setq c  (nth(atoi l)gear_list1_list))
  12.         (setq p  (get_tile "gear_list2"))
  13.         (setq d  (nth(atoi p)gear_list2_list))
  14.         )
  15.   
  16.   (setq id (load_dialog "kg.dcl"))
  17.   (if( < id 0 )(exit))
  18.   (setq std 1)
  19.    
  20.       (while(= std 1)
  21.    (if(not(new_dialog"kg"id))(exit))
  22.    (action_tile "pick_1" "(done_dialog 1)")
  23.           (action_tile "pick_2" "(done_dialog 2)")
  24.           (action_tile "weight" "(getdata)(oweight)")
  25. (action_tile "goout" "(done_dialog 3)")
  26.           (action_tile "cancel" "(done_dialog 0)")
  27.           (setq std (start_dialog))
  28. (cond
  29.    ((= std 1)
  30.           (vl-load-com);将 Visual LISP 扩展功能载入到 AutoLISP  
  31.           (setq my (entsel)) ;"\n选择面域:"
  32.           (while (= my nil) (setq my (entsel)))
  33.           (setq myob (vlax-ename->vla-object (car my)))
  34.           (setq myar (vla-get-area myob))  ;返回面域的面积
  35.    (setq a myar)
  36.    )
  37.    ((= std 2)
  38.           (vl-load-com);将 Visual LISP 扩展功能载入到 AutoLISP
  39.           (setq my1 (entsel)) ;"\n选择面域:"
  40.           (while (= my1 nil) (setq my1 (entsel)))
  41.           (setq myob1 (vlax-ename->vla-object (car my1)))
  42.           (setq myar1 (vla-get-area myob1))  ;返回面域的面积
  43.    (setq b myar1)
  44.    )
  45.    ((= std 3)
  46.           (setq pt (getpoint "指定插入点"))
  47.     (command "text" pt "2.5" "0" (strcat "轮廓面积:" (rtos a) ))
  48.     (command "text" (polar pt (* 1.5 pi) 3.5) "2.5" "0" (strcat "除料面积:" (rtos b)) )
  49.     (command "text" (polar pt (* 1.5 pi) 7) "2.5" "0" (strcat "厚度  :" (rtos c )))
  50.     (command "text" (polar pt (* 1.5 pi) 10.5) "2.5" "0" (strcat "密度  :" (rtos d) ))
  51.     (if e (command "text" (polar pt (* 1.5 pi) 14) "2.5" "0"(strcat  "重量  :" (rtos e) )))  
  52.    )
  53.    )
  54. )
  55.   (unload_dialog id)
  56.   (princ)
  57.   )
回复 支持 反对

使用道具 举报

gufeng
发表于 2010-5-5 14:55:00 | 显示全部楼层
不知道可否，俺还是新手一个。。。
  2. ;;; 定义以对话框为界面计算零件重量的命令，命令名为“kg”，需装入kg.dcl文件。
  3. ;;; AutoLISP源程序代码
  4. (defun c:kg (/  A    B       C   D
  5.       GEAR_LIST1_LIST    GEAR_LIST2_LIST  ID
  6.       MY  MY1    MYAR       MYAR1  MYOB
  7.       MYOB1 OLDOSMODE  POINT      STD  TEXTSIZE
  8.       TEXTSIZE_B TEXT_P    xsws
  9.      )
  10.   (setq gear_list1_list
  11.   (list 0.5   0.6   0.8  1.0   1.2   1.5   1.6  1.8   2.0
  12.         2.5   2.8   3.0  3.2   3.5   4.0   5.0  6.0   8.0
  13.         10.0  12.0  14.0  15.0  16.0  18.0  20.0
  14.        )
  15.   )
  16.   (setq gear_list2_list (list 7.85 2.7 0.8 1.0))
  17.   (setq id (load_dialog "kg.dcl"))
  18.   (if (< id 0)
  19.     (exit)
  20.   )
  21.   (setq std 3)
  22.   (while (> std 0)
  23.     (if (not (new_dialog "kg" id))
  24.       (exit)
  25.     )
  26.     (action_tile "pick_1" "(getdata)(done_dialog 1)")
  27.     (action_tile "pick_2" "(getdata)(done_dialog 2)")
  28.     (action_tile "weight" "(getdata)(oweight)")
  29.     (action_tile "cancel" "(done_dialog 0)")
  30.     (action_tile "goout" "(getdata)(done_dialog 999)")
  31.     (set_dialog a b l p)
  32.     (setq std (start_dialog))
  33.     (if (= std 1)
  34.       (progn
  35. (vl-load-com)   ;将 Visual LISP 扩展功能载入到 AutoLISP  
  36. (setq my (entsel))  ;"\n选择面域:"
  37. (while (= my nil) (setq my (entsel)))
  38. (setq myob (vlax-ename->vla-object (car my)))
  39. (setq myar (vla-get-area myob)) ;返回面域的面积
  40. (setq a myar)
  41.       )
  42.     )
  43.     (if (= std 2)
  44.       (progn
  45. (vl-load-com)   ;将 Visual LISP 扩展功能载入到 AutoLISP
  46. (setq my1 (entsel))  ;"\n选择面域:"
  47. (while (= my1 nil) (setq my1 (entsel)))
  48. (setq myob1 (vlax-ename->vla-object (car my1)))
  49. (setq myar1 (vla-get-area myob1)) ;返回面域的面积
  50. (setq b myar1)
  51.       )
  52.     )
  53.     (if (= std 999)
  54.       (progn
  55. (setq std 0)
  56. (setq text_p (strcat "轮廓面积:"
  57.         (rtos a 2 4)
  58.         "\n除料面积:"
  59.         (rtos b 2 4)
  60.         "\n厚度:"
  61.         (rtos c 2 4)
  62.         "\n密度:"
  63.         (rtos d 2 4)
  64.         "\n重量:"
  65.         (rtos (* d (* c (- a b))) 2 4)
  66.        )
  67. )
  68. (setq point (getpoint "\n选择点"))
  69. (setq TEXTSIZE 5) ;_文字高度
  70. (setq TEXTSIZE_b 2) ;_行间距倍数
  71. (setq xsws 3) ;_小数位数
  72. (setq oldosmode (getvar "osmode"))
  73. (setvar "osmode" 0)
  74. (command "..text"
  75.    point
  76.    TEXTSIZE
  77.    0
  78.    (strcat "轮廓面积:" (rtos a 2 xsws))
  79. )
  80. (command "..text"
  81.    (setq point (list (nth 0 point)
  82.        (- (nth 1 point) (* TEXTSIZE_b TEXTSIZE))
  83.         )
  84.    )
  85.    TEXTSIZE
  86.    0
  87.    (strcat "除料面积:" (rtos b 2 xsws))
  88. )
  89. (command "..text"
  90.    (setq point (list (nth 0 point)
  91.        (- (nth 1 point) (* TEXTSIZE_b TEXTSIZE))
  92.         )
  93.    )
  94.    TEXTSIZE
  95.    0
  96.    (strcat "厚度:" (rtos c 2 xsws))
  97. )
  98. (command "..text"
  99.    (setq point (list (nth 0 point)
  100.        (- (nth 1 point) (* TEXTSIZE_b TEXTSIZE))
  101.         )
  102.    )
  103.    TEXTSIZE
  104.    0
  105.    (strcat "密度:" (rtos d 2 xsws))
  106. )
  107. (command "..text"
  108.    (setq point (list (nth 0 point)
  109.        (- (nth 1 point) (* TEXTSIZE_b TEXTSIZE))
  110.         )
  111.    )
  112.    TEXTSIZE
  113.    0
  114.    (strcat "重量:" (rtos (* d (* c (- a b))) 2 xsws))
  115. )
  116. (setvar "osmode" oldosmode)
  117.       )
  118.     )
  119.   )
  120.   (unload_dialog id)
  121.   (princ)
  122. )
  123. (defun oweight ()
  124.   (setq e (* d (* c (- a b))))
  125.   (set_tile "show" (rtos e 2 4))
  126. )
  127. (defun getdata ()
  128.   (setq a (atof (get_tile "s_out")))
  129.   (setq b (atof (get_tile "s_in")))
  130.   (setq l (get_tile "gear_list1"))
  131.   (setq c (nth (atoi l) gear_list1_list))
  132.   (setq p (get_tile "gear_list2"))
  133.   (setq d (nth (atoi p) gear_list2_list))
  134. )
  135. (defun set_dialog (a b l p)
  136.   (if a
  137.     (progn
  138.       (set_tile "s_out" (rtos a 2 4))
  139.     )
  140.   )
  141.   (if b
  142.     (progn
  143.       (set_tile "s_in" (rtos b 2 4))
  144.     )
  145.   )
  146.   (set_tile "gear_list1" l)
  147.   (set_tile "gear_list2" p)
  148. )
回复 支持 反对

使用道具 举报

windtalkers
 楼主| 发表于 2010-5-5 18:51:00 | 显示全部楼层

感谢5楼指教, 但是轮廓面积和除料面积不能及时显示在编辑框内,编辑框总是显示初始值

请赐教!

回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-7-28 04:04 , Processed in 0.234148 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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