设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：高手帮忙看一下我的乘法计算程序，哪里错了啊？ ...
返回列表 发新帖
查看: 656|回复: 6

[求助] [求助]：高手帮忙看一下我的乘法计算程序，哪里错了啊？

[复制链接]
Groovy
发表于 2006-9-12 10:12:28 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
高手帮忙看一下我的乘法计算程序，哪里错了啊？

  3. (
  4. defun C:cf (/ ns s n i e eb ds ss pt bool th blio cmdo
  5.                ent ent_data old_wz_list jd);乘法运算
  6.         (CMDLA0)
  7.         (setq jd (getint "\n请输入结果保留小数的位数(0):"))
  8.         (if (= jd nil) (setq jd 0))
  9.         (setq blio (getvar "blipmode"))
  10.         (setq cmdo (getvar "cmdecho"))
  11.         (setvar "blipmode" 0)
  12.         (setvar "cmdecho" 0)
  13.         (setq bool "T")
  14.         (princ "\n请选择需乘法运算的数字:")
  15.         (setq ns (ssget))
  16.         (if ns
  17.                 (progn
  18.                 (setq s 1.0 i 0)
  19.                 (setq n (sslength ns))
  20.                         (while (< i n)
  21.                                 (setq e (ssname ns i))
  22.                                 (setq eb (entget e))
  23.                                 (if (= "TEXT" (cdr (assoc 0 eb)))
  24.                                         (progn
  25.                                                 (if bool
  26.                                                         (progn
  27.                                                                 (setq th (cdr (assoc 40 eb)))
  28.                                                                 (setq bool nil)
  29.                                                         )
  30.                                                 )
  31.                                                 (setq ds (atof (cdr (assoc 1 eb))))
  32.                                                 (setq s (* s ds))
  33.                                         )
  34.                                 )
  35.                                 (setq i (1+ i))
  36.                         )
  37.                 )
  38.         )
  39.         (setq ss (rtos s 2 jd))
  40.         (setq ent (entsel "\n请选择作为结果输出的文字:"))
  41.            (setq ent_date (entget (car ent)))
  42.            (setq old_wz_list (assoc 1 ent_date))
  43.            (setq ent_date (subst (cons 1 ss) old_wz_list ent_date))
  44.            (entmod ent_date)
  45.         (setvar "blipmode" blio)
  46.         (setvar "cmdecho" cmdo)
  47.         (princ)
  48.         (princ "\n乘积计算完毕")       
  49.         (princ)
setq, 乘法, ent

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

yjig
发表于 2006-9-12 19:25:56 | 显示全部楼层
(CMDLA0)函数未定义！
将其前面打;;
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2006-9-12 19:44:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(setq ds (atof (cdr (assoc 1 eb))))
可能为0.



  4. (setq ns (ssget))
  5.         (if ns
  6.                 (progn
  7.                 (setq s 1.0 i 0)
  8.                 (setq n (sslength ns))
  9.                         (while (< i n)
  10.                                 (setq e (ssname ns i))
  11.                                 (setq eb (entget e))
  12.                                 (if (= "TEXT" (cdr (assoc 0 eb)))
  13.                                         (progn
  14.                                                 (if bool
  15.                                                         (progn
  16.                                                                 (setq th (cdr (assoc 40 eb)))
  17.                                                                 (setq bool nil)
  18.                                                         )
  19.                                                 )
  20.                                                 (setq ds (atof (cdr (assoc 1 eb))))
  21.                                                 (setq s (* s ds))
  22.                                         )
  23.                                 )
  24.                                 (setq i (1+ i))
  25.                         )
  26.                 )
  27.         )
  28. ;改为下面比较简单
  29. (setq s 1.)
  30. (if(setq ns(ssget '((0 . "text"))))
  31.   (repeat(setq n(sslength ns))
  32.      (if (/= 0(setq s1(atof(cdr(assoc 1(entget(ssname ns(setq n(1- n)))))))))
  33.          (setq s(* s s1))
  34.      )
  35.   )
  36. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Groovy
 楼主| 发表于 2006-9-25 15:55:39 | 显示全部楼层
aeo高手啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-9-25 21:21:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. [FONT=courier new](defun c:cf ()
  3.   (cmdla0)
  4.   (if (null jd)
  5.     (setq jd 0)
  6.   )
  7.   (setq        jd (UINT 1 "" "\n请输入结果保留小数的位数" jd)
  8.         SS (ssget '((0 . "TEXT,MTEXT")))
  9.         th (xyp-get-dxf 40 (ssname ss 0))
  10.         i  -1
  11.         n  1
  12.   )
  13.   (while (setq s1 (ssname ss (setq i (1+ i))))
  14.     (setq n (* n (distof (xyp-get-dxf 1 s1)))
  15.     )
  16.   )
  17.   (while (not (setq p1 (getpoint "\n计算结果放置点: "))))
  18.   (command "text" "j" "mc" p1 th "0" (rtos n 2 jd))
  19.   (cmdla1)
  20. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2006-9-26 14:37:30 | 显示全部楼层
;;;在1楼的函数基础上对输出部分做一补充，部分代码如下：
......
  (setq ent (entsel "\n请选择作为结果输出的文字:"))
  (if (= ent nil)
    (princ "\n乘积计算中途退出。")
    (progn
      (setq ent_date (entget (car ent)))
      (setq old_wz_list (assoc 1 ent_date))
      (setq ent_date (subst (cons 1 ss) old_wz_list ent_date))
      (entmod ent_date)      
      (princ)
      (princ "\n乘积计算完毕")
    )
  )
  (setvar "blipmode" blio)
  (setvar "cmdecho" cmdo)
  (princ)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Groovy
 楼主| 发表于 2006-9-26 17:08:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
加入了判断 空 的语句，好，谢谢
XYP是高手，语句精炼啊！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-18 08:44 , Processed in 0.427879 second(s), 43 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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