[LISP程序]：修改尺寸标注为楼梯标注形式（实用程序）

gysjy

这是本人编写的一个小程序，用于将普通的尺寸标注改为楼梯标注的形式。
;| 用途：修改尺寸标注为楼梯标注形式。例如，你如果选择了标注值分别为1650和1800的相关标注，输入步长为150，则标注值分别被改为“150X11=1650”和“150X12=1800”。
使用方法十分简单：
1.选择要改变的尺寸标注；
2.输入步长或踏步数，默认步长为260；
3.回车即完成了修改。
如紧接着再次使用该命令，则默认的范围为上次使用的步长。|;

2. (princ "\n修改尺寸标注为楼梯标注形式，\n比例为1：50，请执行ltdim；\n比例为1：100，请执行ltdim1。")
   
3. (defun c:ltdim(/ ss nn ssl n sn en p1 p2 dis3 dis0 t0 t1 t b m bs ms dis00 str)
   
4.    ;;全局变量: wxn0
   
5.    (setq oer *error* *error* myerr)
   
6.    (setvar "cmdecho" 0)
   
7.    (command "graphscr")
   
8.    (setq ss (ssget))
   
9.    (if (= wxn0 nil) (setq wxn0 260))
   
10.    (princ "\n步长或步数<") (princ wxn0)
    
11.    (setq nn (getint ">:"))
    
12.    (if (= nn nil) (setq nn wxn0))
    
13.      (setq ssl (sslength ss) n 0)
    
14.      (repeat ssl
    
15.        (setq sn (ssname ss n) en (entget sn) n (1+ n))
    
16.        (if (= "DIMENSION" (cdr (assoc 0 en)))
    
17.          (progn
    
18.            (setq p1 (cdr (assoc 13 en)) p2 (cdr (assoc 14 en))
    
19.                  dis3 (distance p1 p2) dis0 (* 5 (fix (/ (+ dis3 4) 10)))
    
20.                  t0 (/ dis3 nn)  t0 (/ t0 2) t1 (+ t0 0.5)  t (fix t1)
    
21.            )
    
22.            (if (> nn t) (setq b nn m t) (setq m nn b t))
    
23.            (setq bs (itoa b)  ms (itoa m)  diss0 (itoa dis0))
    
24.            (setq str (strcat bs "X" ms "=" diss0))
    
25.            (command "dim1" "newtext" str  sn "")
    
26.            (setq wxn0 nn)
    
27.          )
    
28.        )
    
29.        (princ (strcat str ";   "))
    
30.      )
    
31.      (princ "\n            gysjy0  96.8制作, 97.5修改.")
    
32.      (setq *error* oer)
    
33.      (princ))
    
34. 
    
35. (defun c:ltdim1(/ ss nn ssl n sn en p1 p2 dis3 dis0 t0 t1 t b m bs ms dis00 str)
    
36.    ;;全局变量: wxn0
    
37.    (setq oer *error* *error* myerr)
    
38.    (setvar "cmdecho" 0)
    
39.    (command "graphscr")
    
40.    (setq ss (ssget))
    
41.    (if (= wxn0 nil) (setq wxn0 260))
    
42.    (princ "\n步长或步数<") (princ wxn0)
    
43.    (setq nn (getint ">:"))
    
44.    (if (= nn nil) (setq nn wxn0))
    
45.      (setq ssl (sslength ss) n 0)
    
46.      (repeat ssl
    
47.        (setq sn (ssname ss n) en (entget sn) n (1+ n))
    
48.        (if (= "DIMENSION" (cdr (assoc 0 en)))
    
49.          (progn
    
50.            (setq p1 (cdr (assoc 13 en)) p2 (cdr (assoc 14 en))
    
51.                  dis3 (distance p1 p2) dis0 (* 10 (fix (/ (+ dis3 4) 10)))
    
52.                  t0 (/ dis3 nn)  t1 (+ t0 0.5)  t (fix t1)
    
53.            )
    
54.            (if (> nn t) (setq b nn m t) (setq m nn b t))
    
55.            (setq bs (itoa b)  ms (itoa m)  diss0 (itoa dis0))
    
56.            (setq str (strcat bs "X" ms "=" diss0))
    
57.            (command "dim1" "newtext" str  sn "")
    
58.            (setq wxn0 nn)
    
59.          )
    
60.        )
    
61.        (princ (strcat str ";   "))
    
62.      )
    
63.      (princ "\n            gysjy0  96.8制作, 97.5修改.")
    
64.      (setq *error* oer)
    
65.      (princ))
    
66. 
    
67. (defun myerr (s)
    
68.   (if (/= s "Function canccelled")
    
69.    (if (= (substr s 1 13) "null function")
    
70.        (princ "\n该程序不能运行.") (princ "\n程序中止")
    
71.    )
    
72.   )
    
73.   (setq *error* oer)
    
74.   (princ))

(princ "\n修改尺寸标注为楼梯标注形式，\n比例为1：50，请执行ltdim；\n比例为1：100，请执行ltdim1。")<br /> (defun c:ltdim(/ ss nn ssl n sn en p1 p2 dis3 dis0 t0 t1 t b m bs ms dis00 str)<br />    ;;全局变量: wxn0<br />    (setq oer *error* *error* myerr)<br />    (setvar "cmdecho" 0)<br />    (command "graphscr")<br />    (setq ss (ssget))<br />    (if (= wxn0 nil) (setq wxn0 260))<br />    (princ "\n步长或步数<") (princ wxn0) <br />    (setq nn (getint ">:"))<br />    (if (= nn nil) (setq nn wxn0))<br />      (setq ssl (sslength ss) n 0)<br />      (repeat ssl<br />        (setq sn (ssname ss n) en (entget sn) n (1+ n))<br />        (if (= "DIMENSION" (cdr (assoc 0 en)))<br />          (progn<br />            (setq p1 (cdr (assoc 13 en)) p2 (cdr (assoc 14 en))<br />                  dis3 (distance p1 p2) dis0 (* 5 (fix (/ (+ dis3 4) 10)))<br />                  t0 (/ dis3 nn)  t0 (/ t0 2) t1 (+ t0 0.5)  t (fix t1)<br />            )<br />            (if (> nn t) (setq b nn m t) (setq m nn b t))<br />            (setq bs (itoa b)  ms (itoa m)  diss0 (itoa dis0))<br />            (setq str (strcat bs "X" ms "=" diss0))<br />            (command "dim1" "newtext" str  sn "")<br />            (setq wxn0 nn)<br />          )<br />        )<br />        (princ (strcat str ";   "))<br />      )<br />      (princ "\n            gysjy0  96.8制作, 97.5修改.")<br />      (setq *error* oer)<br />      (princ))<br /> <br /> (defun c:ltdim1(/ ss nn ssl n sn en p1 p2 dis3 dis0 t0 t1 t b m bs ms dis00 str)<br />    ;;全局变量: wxn0<br />    (setq oer *error* *error* myerr)<br />    (setvar "cmdecho" 0)<br />    (command "graphscr")<br />    (setq ss (ssget))<br />    (if (= wxn0 nil) (setq wxn0 260))<br />    (princ "\n步长或步数<") (princ wxn0) <br />    (setq nn (getint ">:"))<br />    (if (= nn nil) (setq nn wxn0))<br />      (setq ssl (sslength ss) n 0)<br />      (repeat ssl<br />        (setq sn (ssname ss n) en (entget sn) n (1+ n))<br />        (if (= "DIMENSION" (cdr (assoc 0 en)))<br />          (progn<br />            (setq p1 (cdr (assoc 13 en)) p2 (cdr (assoc 14 en))<br />                  dis3 (distance p1 p2) dis0 (* 10 (fix (/ (+ dis3 4) 10)))<br />                  t0 (/ dis3 nn)  t1 (+ t0 0.5)  t (fix t1)<br />            )<br />            (if (> nn t) (setq b nn m t) (setq m nn b t))<br />            (setq bs (itoa b)  ms (itoa m)  diss0 (itoa dis0))<br />            (setq str (strcat bs "X" ms "=" diss0))<br />            (command "dim1" "newtext" str  sn "")<br />            (setq wxn0 nn)<br />          )<br />        )<br />        (princ (strcat str ";   "))<br />      )<br />      (princ "\n            gysjy0  96.8制作, 97.5修改.")<br />      (setq *error* oer)<br />      (princ))<br /> <br /> (defun myerr (s)<br />   (if (/= s "Function canccelled")<br />    (if (= (substr s 1 13) "null function")<br />        (princ "\n该程序不能运行.") (princ "\n程序中止")<br />    )<br />   )<br />   (setq *error* oer)<br />   (princ))

狂刀

例如，你如果选择了标注值分别为1650和1800的相关标注，输入步长为150

我觉得输入踏步数更实用

gysjy

最初由 狂刀 发布
[B]例如，你如果选择了标注值分别为1650和1800的相关标注，输入步长为150

我觉得输入踏步数更实用 [/B]

输入踏步数的数字更简单，但对不同踏步数的几个相关标注不好同时选用，而输入步长可以达到这个目的。因此在使用中可以根据需要选用输入踏步数还是步长。

GOFLYING

楼主，我是CAD2004，使用中出错

命令: ltdim
; 错误: 要绑定的对象不正确: T

haibinpro

我的也是这样，麻烦解决一下。

zh_6531394

我是CAD2002，同样出错

命令: ltdim
; 错误: 要绑定的对象不正确: T

fswind1108

为什么出错?

gysjy

已经在2002版本上进行了修改，估计2004版本也应能使用。

swhlzl

一点小疑问，程序是怎么舍入计算的，计算结果不对啊

zh_6531394

出错?

gysjy

最初由 swhlzl 发布
[B]一点小疑问，程序是怎么舍入计算的，计算结果不对啊 [/B]

          程序是将要处理的尺寸长度除以输入的步长或踏步数，得到的商如果不是整数，则四舍五入后再归整。
    例如要处理的尺寸长度是1650，则1650 / 260=6.346，四舍五入归整后得到结果为6，于是出现了260X6=1650的情况。
    事实上，只要绘图正确，这种情况是不会出现的。因为你绘制的踏步实际宽度是275，你在使用该程序输入步长时就会输入275而不是260。另外，如果你输入踏步数，就会避免这个情况。例如你输入6，则程序给出275X6=1650。

最初由 zh_6531394 [ 发布
[B]出错?  
zh_6531394 附带了这个的图片 :
[/B]

请将程序中  (setq oer *error* *error* myerr)的语句
改为  (setq oer *error* *error* nil)，执行该程序，将错误信息传上来。

diskcopy

比较实用的程序，谢谢楼主

zxdvip

很实用！！！

chenjh777

当输步长和大于尺寸时，尺寸线自动会加长的？？？？

CE_wolf

非常实用，每次都要很麻烦的去修改尺寸，这下就方便了，谢谢