标高符号源码解析与测试(左击缩小grread，生成对象entmakex应用）

林霄云

标高符号源码——左击缩小grread，生成对象entmakex形成选择集应用
常用图块用代码生成，可以省去打开种子文件拷贝的麻烦。标高符号，不可或缺。
子程序elev-symbol，返回生成的对象的选择集

1. elev-symbol(str pt)
   
2. ;函数elev-symbol(str pt),参数str:string pt:point，返回值，生成对象的选择集
   
3. ;Desiged by 林霄云 2014年1月20日

复制代码

根据种子文件图例，是采用硬编码形式支座函数生成代码，即将标高符号插入点置为（0 0 0），获取其他相对点位置，为entmakex做准备。
为了将生成的对象进行其他缩放旋转操作，将entmakex的返回值，添加到选择集。所形成的选择集作为子函数的返回值。
针对标高文字，进行特殊处理，处理默认值，处理数字格式化，对于0，增加正负符号。

2. (if (= "" str) (setq str "Hs")
   
3. 
   
4. (if  (numberp (read str))
   
5.    (progn (setvar "DIMZIN" 0)
   
6.       (setq str (rtos (atof str) 2 3) ) ;格式化
   
7.       (if  (= 0 (atof str))
   
8.       (setq str (strcat "%%p" str)))
   
9.       );progn
   
10. )
    
11. );if

(if (= "" str) (setq str "Hs")<br /> <br /> (if  (numberp (read str))<br />    (progn (setvar "DIMZIN" 0)<br />       (setq str (rtos (atof str) 2 3) ) ;格式化<br />       (if  (= 0 (atof str))<br />       (setq str (strcat "%%p" str)))<br />       );progn<br /> )<br /> );if

对插入点进行处理，硬编码方案

2. (setq pt-text10 (mapcar '+ pt '(350 325 0)))
   
3. (setq pt-text11 (mapcar '+ pt '(460 325 0)))
   
4. 
   
5. (setq pt-pl1 (mapcar '+ pt '(225 225 0)))
   
6. (setq pt-pl2 (mapcar '+ pt '(-225 225 0)))
   
7. (setq pt-pl3 (mapcar '+ pt '(1145 225 0)))
   
8. 
   
9. (setq pt-l1 (mapcar '+ pt '(-275 0 0)))
   
10. (setq pt-l2 (mapcar '+ pt '(275 0 0)))

(setq pt-text10 (mapcar '+ pt '(350 325 0)))<br /> (setq pt-text11 (mapcar '+ pt '(460 325 0)))<br /> <br /> (setq pt-pl1 (mapcar '+ pt '(225 225 0)))<br /> (setq pt-pl2 (mapcar '+ pt '(-225 225 0)))<br /> (setq pt-pl3 (mapcar '+ pt '(1145 225 0)))<br /> <br /> (setq pt-l1 (mapcar '+ pt '(-275 0 0)))<br /> (setq pt-l2 (mapcar '+ pt '(275 0 0)))

生成选择集并返回

2. (setq ss (ssadd)) ;设置选择集
   
3. ;文字
   
4. (ssadd (EntMakex (list '(0 . "TEXT") '(8 . "G_LEVEL（标高）") '(62 . 2) (cons 10 pt-text10) '(40 . 300) (cons 1 str) '(41 . 0.7) '(7 . "G_text") '(72 . 1) (cons 11 pt-text11) '(210 0 0 1))) ss)
   
5. ;多线
   
6. (ssadd (EntMakex (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "G_LEVEL（标高）") '(100 . "AcDbPolyline") '(90 . 4) '(43 . 0) (cons 10 pt-pl1) (cons 10 pt) (cons 10 pt-pl2) (cons 10 pt-pl3) '(210 0 0 1))) ss)
   
7. ;直线
   
8. (ssadd (EntMakex (list '(0 . "LINE") '(8 . "G_LEVEL（标高）") (cons 10 pt-l1) (cons 11 pt-l2) '(210 0 0 1))) ss)
   
9. 
   
10. ss

(setq ss (ssadd)) ;设置选择集<br /> ;文字<br /> (ssadd (EntMakex (list '(0 . "TEXT") '(8 . "G_LEVEL（标高）") '(62 . 2) (cons 10 pt-text10) '(40 . 300) (cons 1 str) '(41 . 0.7) '(7 . "G_text") '(72 . 1) (cons 11 pt-text11) '(210 0 0 1))) ss)<br /> ;多线<br /> (ssadd (EntMakex (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "G_LEVEL（标高）") '(100 . "AcDbPolyline") '(90 . 4) '(43 . 0) (cons 10 pt-pl1) (cons 10 pt) (cons 10 pt-pl2) (cons 10 pt-pl3) '(210 0 0 1))) ss)<br /> ;直线<br /> (ssadd (EntMakex (list '(0 . "LINE") '(8 . "G_LEVEL（标高）") (cons 10 pt-l1) (cons 11 pt-l2) '(210 0 0 1))) ss)<br /> <br /> ss

使用entmakex生成对象时，涉及到，需要图层与字体样式检测，增加判断并使用entmake生成，代码置之前面。

2. (setq layername "G_LEVEL（标高）")
   
3. (if (null (tblobjname "LAYER" layername) )
   
4. (entmake (list '(0 . "LAYER")
   
5.         '(100 . "AcDbSymbolTableRecord")
   
6.         '(100 . "AcDbLayerTableRecord")
   
7.         '(70 . 0)
   
8.         '(6 . "Continuous")   ;线型
   
9.         (cons 2 layername)
   
10.     '(62 . 7)  ;颜色
    
11.         )
    
12.     )
    
13. );if
    
14. 
    
15. 
    
16. (setq stylename "G_text")
    
17. (if (null (tblobjname "STYLE" stylename) )
    
18. (entmake (list '(0 . "STYLE")
    
19.         '(100 . "AcDbSymbolTableRecord")
    
20.         '(100 . "AcDbTextStyleTableRecord")
    
21.         '(70 . 0)
    
22.     '(42 . 300) ;默认字高
    
23.     '(3 . "_bxsz.shx")
    
24.     '(4 . "_bxfs.shx")
    
25.         (cons 2 stylename)
    
26.     '(40 . 0.0) ;字高
    
27.     '(41 . 0.7) ;字宽比例
    
28.     '(50 . 0.0) ;默认旋转角度
    
29.         )
    
30.     )
    
31. );if

(setq layername "G_LEVEL（标高）")<br /> (if (null (tblobjname "LAYER" layername) )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "Continuous")   ;线型<br />         (cons 2 layername)<br />     '(62 . 7)  ;颜色<br />         )<br />     )<br /> );if <br /> <br /> <br /> (setq stylename "G_text")<br /> (if (null (tblobjname "STYLE" stylename) )<br /> (entmake (list '(0 . "STYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbTextStyleTableRecord")<br />         '(70 . 0)<br />     '(42 . 300) ;默认字高<br />     '(3 . "_bxsz.shx") <br />     '(4 . "_bxfs.shx")<br />         (cons 2 stylename)<br />     '(40 . 0.0) ;字高<br />     '(41 . 0.7) ;字宽比例<br />     '(50 . 0.0) ;默认旋转角度<br />         )<br />     )<br /> );if

最后调用主函数C:ES() Elev-Symbol 标高符号，增加左击缩放，使用grread。并且，为了有可被接受的动态，并不失捕捉，使用getpoint获取插入点。

2. (defun C:ES();Elev-Symbol 标高符号
   
3. (setq pt '(0 0 0))
   
4. (while (setq pt (getpoint pt "基点"))
   
5.          
   
6.         (setq ss (elev-symbol (getstring "输入标高值?[Hs]\n")  pt))
   
7.       
   
8.       ;捕捉左键，进行缩放测试
   
9.       (prompt "\n比例为1：25时左击，1：100时右击继续\n")
   
10.       (while (and (setq ptr (grread t 15 2))
    
11.               (not (and (= 2 (car ptr)); 键盘事件
    
12.                     (or (= 13 (cadr ptr)) (= 32 (cadr ptr))) ;_Enter Space
    
13.             ))
    
14.              (not (or (= (car ptr) 11) (= (car ptr) 25)));_Mouse Right button
    
15.                           )   
    
16.                  ; (redraw)
    
17.       (cond ((= (car ptr) 3);_Mouse Left button
    
18.          (command "scale" ss "" pt 0.25) ;左键进行0.25倍缩小，测试ss选择集方式可行。
    
19.            ))
    
20.            );while
    
21.       ;捕捉左键，进行缩放测试
    
22.    
    
23.     );while
    
24.   (princ)
    
25. );es
    
26. (princ "\nES  Elevation Symbol 标高符号命令加载成功\nDesigned by 林霄云 2014年1月20日")
    
27. (princ)

(defun C:ES();Elev-Symbol 标高符号<br /> (setq pt '(0 0 0))<br /> (while (setq pt (getpoint pt "基点"))<br />          <br />         (setq ss (elev-symbol (getstring "输入标高值?[Hs]\n")  pt))<br />       <br />       ;捕捉左键，进行缩放测试<br />       (prompt "\n比例为1：25时左击，1：100时右击继续\n")<br />       (while (and (setq ptr (grread t 15 2))<br />               (not (and (= 2 (car ptr)); 键盘事件<br />                     (or (= 13 (cadr ptr)) (= 32 (cadr ptr))) ;_Enter Space<br />             ))<br />              (not (or (= (car ptr) 11) (= (car ptr) 25)));_Mouse Right button <br />                           )   <br />                  ; (redraw)<br />       (cond ((= (car ptr) 3);_Mouse Left button <br />          (command "scale" ss "" pt 0.25) ;左键进行0.25倍缩小，测试ss选择集方式可行。<br />            ))<br />            );while<br />       ;捕捉左键，进行缩放测试<br />    <br />     );while<br />   (princ)<br /> );es<br /> (princ "\nES  Elevation Symbol 标高符号命令加载成功\nDesigned by 林霄云 2014年1月20日")<br /> (princ)

使用左击进行比例缩小只是为了增加grread函数的应用，不同比例的输入逻辑，可以进一步改进。
结果：
详附图，能无误实现添加标高符号。
结论：
本文根据标高符号实例，测试了entmake生成图层，文字样式，测试了entmakex生成对象形成选择集，进行后续操作，测试了grread函数获取左击，右击，enter，space，进行缩放与退出操作。

xiaoyuzj-503

LZ很强大。

252218

支持小林一下

林霄云

很感谢老大的支持，但我必须更新一个版本，支持UCS，加强的grread应用。
标高符号v2源码解析与测试(左击缩小grread，生成对象entmakex应用，支持UCS）
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7303580

自贡黄明儒

为什么要缩小呢？对于一张图而言，大小基本上是个定值吧？这个grread不容易控制大小吧？

林霄云

自贡黄明儒 发表于 2014-1-25 08:41
为什么要缩小呢？对于一张图而言，大小基本上是个定值吧？这个grread不容易控制大小吧？

黄老，感谢关照。缩小是为了实现在1：1的比例下做1：25的图。关于这个grread的操作，在v2版本上，我做了逻辑上的调整。也就是生成之后，可以进行大小，方向调整。当不需要此类调整时，可以右击，空格，enter退出。

xyp1964

意义真不大

林霄云

xyp1964 发表于 2014-1-25 11:27
意义真不大

谢谢院长光顾，v2版本有更大的操作性。
关于这个标高符号，统一格式是我做这个的初衷。在任何情况下调用（即会补充图层和文字样式）。
一般对于结构专业，标高值，是手动或者用内容刷输入。
对于建筑专业，画立剖面时，需要计算数值，自动填充，对于我，意义真不大。

天园地方

没有钱啊，免费就好了。

知行ooo李肖坪

同步学习…………