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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：帮我看下哪出问题了
返回列表 发新帖
查看: 610|回复: 3

[求助] [求助]：帮我看下哪出问题了

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

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

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

×
(defun c:addtext (/ l m ss ee e1 e2 e3 e4 e5 e6  name t t1 layer ro style h p)
(setvar "cmdecho" 0)
(prompt "\n               *****BDCAD程序<<数字累加>>*****")
(prompt "\n请用窗口形式选择!")
(setq ee ())
(setq ss (ssget))
(setq l 0 m (sslength ss))
(while (< l m)
(setq e0 (ssname ss l))
(setq e (entget e0))
(setq e1 (cdr (assoc 0 e)))
(if (= "TEXT" e1)
   (progn
   (setq e2 (cdr (assoc 1 e)))
   (setq e3 (strlen e2))
   (setq l1 1)
  (while (<= l1 e3)
   (setq e4 (substr e2 l1 1))
   (setq e5 (ascii e4))
   (if (or (= e5 47) (< e5 46) (> e5 57))
       (setq l1 (+ 1 e3)))
       (setq l1 (+ l1 1))
   )
   (if (= 1 (- l1 e3))
       (progn
       (setq e2 (read e2))
       (setq ee (cons e2 ee))
  ))
  ))
      (setq l (+ l 1))
  )
(setq e3 0.00 l 0 m (length ee))
(while (< l m)
(setq e2 (nth l ee))
  (setq e3 (+ e2 e3))
(setq l (+ L 1))
)
(setq t (getint "\n输入保留小数点后的位数<0>:"))
(if (= t nil) (setq t 0))  
(setq e31 (rtos e3 2 t))
(princ "\n 选取的数据值:")
(princ ee)
(princ "\n 选取的数据个数:")
(princ l)
(princ (strcat "    数字累加值为:" e31))
(initget 6)
(setq k (getint "\n1=标注/2=不标注<2>:"))
(if (> k 2) (setq k 2))
(if (= k 1) (progn
            (prompt "\n点取将要标注文字的式样:")
            (setq k1 (ssget))
            (setq layer (cdr (assoc 8 (entget (ssname k1 0)))))
            (setq ro (cdr (assoc 50 (entget (ssname k1 0)))))
            (setq ro (/ (* ro 180) pi))
            (setq style (cdr (assoc 7 (entget (ssname k1 0)))))
            (setq h (cdr (assoc 40 (entget (ssname k1 0)))))
            (setvar "clayer" layer)
            (initget 1)
            (setq p (getpoint "\n位置:"))
            (command "text" "s" style p h ro e31)
            )
)
(redraw)
(princ)
)
setq, assoc, princ

相关帖子

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

使用道具 举报

jdhszh
发表于 2006-6-22 12:01:48 | 显示全部楼层
(command "text" "s" style p h ro e31)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lijoicq
 楼主| 发表于 2006-6-22 13:43:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
什么意思啊？改成什么是正确的？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-6-22 21:39:38 | 显示全部楼层
  2. [FONT=courier new](defun c:test
  3.        (/ l m ss ee e1 e2 e3 e4 e5 e6 name t1 layer ro style h p)
  4.   (setvar "cmdecho" 0)
  5.   (prompt "\n *****BDCAD程序<<数字累加>>*****")
  6.   (prompt "\n请用窗口形式选择!")
  7.   (setq        ss (ssget)
  8.         l  0
  9.         m  (sslength ss)
  10.   )
  11.   (while (< l m)
  12.     (setq e0 (ssname ss l)
  13.           e  (entget e0)
  14.           e1 (cdr (assoc 0 e))
  15.     )
  16.     (if        (= "TEXT" e1)
  17.       (progn
  18.         (setq e2 (cdr (assoc 1 e))
  19.               e3 (strlen e2)
  20.               l1 1
  21.         )
  22.         (while (<= l1 e3)
  23.           (setq        e4 (substr e2 l1 1)
  24.                 e5 (ascii e4)
  25.           )
  26.           (if (or (= e5 47) (< e5 46) (> e5 57))
  27.             (setq l1 (+ 1 e3))
  28.           )
  29.           (setq l1 (+ l1 1))
  30.         )
  31.         (if (= 1 (- l1 e3))
  32.           (setq        e2 (read e2)
  33.                 ee (cons e2 ee)
  34.           )
  35.         )
  36.       )
  37.     )
  38.     (setq l (+ l 1))
  39.   )
  40.   (setq        e3 0.00
  41.         l  0
  42.         m  (length ee)
  43.   )
  44.   (while (< l m)
  45.     (setq e2 (nth l ee)
  46.           e3 (+ e2 e3)
  47.           l  (+ L 1)
  48.     )
  49.   )
  50.   (setq tt (getint "\n输入保留小数点后的位数<0>: "))
  51.   (if (= tt nil)
  52.     (setq tt 0)
  53.   )
  54.   (setq e31 (rtos e3 2 tt))
  55.   (princ "\n 选取的数据值: ")
  56.   (princ ee)
  57.   (princ "\n 选取的数据个数: ")
  58.   (princ l)
  59.   (princ (strcat " 数字累加值为:" e31))
  60.   (initget 6)
  61.   (setq k (getint "\n1=标注/2=不标注<2>: "))
  62.   (if (> k 2)
  63.     (setq k 2)
  64.   )
  65.   (if (= k 1)
  66.     (progn
  67.       (setq s1 (car (entsel "\n点取将要标注文字的式样: "))
  68.             k1 (entget s1)
  69.             la (cdr (assoc 8 k1))
  70.             ro (cdr (assoc 50 k1))
  71.             ro (/ (* ro 180) pi)
  72.             st (cdr (assoc 7 k1))
  73.             h  (cdr (assoc 40 k1))
  74.       )
  75.       (setvar "clayer" la)
  76.       (if (setq p (getpoint "\n文字标注位置: "))
  77.         (command "text" "s" st p h ro e31)
  78.       )
  79.     )
  80.   )
  81.   (redraw)
  82.   (princ)
  83. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-2-19 06:10 , Processed in 0.387125 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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