截断符号源码解析与测试（支持UCS，左击比例更改）

林霄云

截断符号源码解析与测试（支持UCS，左击比例更改）
把箍筋拉筋统一符号命令更新完源码之后——拉筋箍筋符号源码解析与测试（支持UCS、形式切换、智能比例、统一命令）http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7303580
，总觉得还少了一个，对，就是截断符号了（网上有的，是我并不喜欢的对话框与输入）。
很简单的动态和逻辑，直接上主函数

2. (defun C:CSB( / pt1 pt2 ss num-pt  );cut-Symbol 标高符号
   
3. 
   
4. ;(while (setq pt1 (getpoint  "第一点<exit>")) ;不需要循环
   
5. ;(setq flag nil)
   
6. (setq num-pt 0)
   
7. (setq pt1 (getpoint  "第一点<exit>"))
   
8. (setq pt2 (getpoint pt1 "第二点"))
   
9. 
   
10. (setq ss (cut_symbol pt1 pt2 num-pt))
    
11.      
    
12.       ;捕捉左键，进行缩放测试
    
13.       (prompt "\n比例不对？左击，1：25、1：50、1：100循环 or 右击、空格、回车键确认退出")
    
14.       (while (and (setq ptr (grread t 15 2))
    
15.               (not (and (= 2 (car ptr)); 键盘事件
    
16.                     (or (= 13 (cadr ptr)) (= 32 (cadr ptr))) ;_Enter Space
    
17.             ))
    
18.              (not (or (= (car ptr) 11) (= (car ptr) 25)));_Mouse Right button
    
19.                        ;flag   
    
20.                  )   
    
21.                  ;(redraw)
    
22.       (cond ((= (car ptr) 3);_Mouse Left button
    
23.          (if ss
    
24.          (progn (ss_delete ss)(setq num-pt (1+ num-pt)) (setq ss (cut_symbol pt1 pt2 num-pt))) ;切换标志，删除，生成
    
25.          ) ;左键进行循环，测试ss选择集方式可行。
    
26.            ))
    
27.        ;(cond ((= (car ptr) 2);键盘事件 ,支持撤销。但是觉得不需要。注释掉
    
28.                   
    
29.          ;(if (or (= (ascii "U") (cadr ptr)) (= (ascii "u") (cadr ptr))) (if ss (progn (ss_delete ss) (setq flag (not flag)))))
    
30.            ;))
    
31.            );while
    
32.       ;捕捉左键，进行缩放测试
    
33.    
    
34.     ; );while
    
35.   (princ)
    
36. );cs
    
37. (princ "\nCSB  Cut SymBol 截断符号命令加载成功\nDesigned by 林霄云 2014年2月18日")
    
38. (princ)

(defun C:CSB( / pt1 pt2 ss num-pt  );cut-Symbol 标高符号<br /> <br /> ;(while (setq pt1 (getpoint  "第一点<exit>")) ;不需要循环<br /> ;(setq flag nil)<br /> (setq num-pt 0)<br /> (setq pt1 (getpoint  "第一点<exit>"))<br /> (setq pt2 (getpoint pt1 "第二点"))<br /> <br /> (setq ss (cut_symbol pt1 pt2 num-pt))<br />      <br />       ;捕捉左键，进行缩放测试<br />       (prompt "\n比例不对？左击，1：25、1：50、1：100循环 or 右击、空格、回车键确认退出")<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 />                        ;flag   <br />                  )   <br />                  ;(redraw)<br />       (cond ((= (car ptr) 3);_Mouse Left button <br />          (if ss <br />          (progn (ss_delete ss)(setq num-pt (1+ num-pt)) (setq ss (cut_symbol pt1 pt2 num-pt))) ;切换标志，删除，生成<br />          ) ;左键进行循环，测试ss选择集方式可行。<br />            ))<br />        ;(cond ((= (car ptr) 2);键盘事件 ,支持撤销。但是觉得不需要。注释掉<br />                   <br />          ;(if (or (= (ascii "U") (cadr ptr)) (= (ascii "u") (cadr ptr))) (if ss (progn (ss_delete ss) (setq flag (not flag)))))<br />            ;))<br />            );while<br />       ;捕捉左键，进行缩放测试<br />    <br />     ; );while<br />   (princ)<br /> );cs<br /> (princ "\nCSB  Cut SymBol 截断符号命令加载成功\nDesigned by 林霄云 2014年2月18日")<br /> (princ)

cut_symbol函数就是简单的根据输入的点，采用一点点不值一哂的算法，生成截断符号。
主要的操作有，坐标变换以支持UCS，确定参数以支持不同比例，生成图层，生成简单多段线。

2. (defun cut_symbol(pt0 pt00 pt-num / ss mid-pt self-ang pt1 pt2 pt1a pt2a pt10 pt10a a d h temp-dis temp-list)
   
3. ;函数cut-symbol(pt0 pt00 sc-flag),参数sc-flag 比例，当nil为1：100，否则为1：25，返回值，生成对象的选择集
   
4. ;Desiged by 林霄云 2014年1月20日
   
5. (setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量
   
6. ;(setq ang (angle '(0 0 0) (trans (getvar "UCSXDIR") 0 ucszdir)));生成UCS在OCS的角度，不通过组码，通过旋转实现
   
7. (setq pt0 (trans (trans pt0 1 0) 0 ucszdir ));将插入点从UCS转WCS后转
   
8. (setq pt00 (trans (trans pt00 1 0) 0 ucszdir ))
   
9. 
   
10. (setq mid-pt (mid_point pt0 pt00))
    
11. (setq self-ang (angle pt0 pt00))
    
12. 
    
13. (setq pt-num (rem pt-num 3))
    
14. ;pt-num 0
    
15. (setq a (/ pi 3.0 )
    
16.     d 200
    
17.     h 150 )
    
18. 
    
19. ;判断比例，按1：50与1：25考虑
    
20. (if (= pt-num 1)
    
21. (setq d 50
    
22.     h 37.5 ))
    
23.    
    
24. (if (= pt-num 2)
    
25. (setq d 100
    
26.     h 75 ))
    
27.    
    
28. (setq pt1 (polar mid-pt (- self-ang pi) h))
    
29. (setq pt10 (polar pt0 (- self-ang pi)  d))
    
30. 
    
31. (setq pt1a (polar mid-pt self-ang   h))
    
32. (setq pt10a (polar pt00 self-ang   d))
    
33. 
    
34. (setq pt2 (polar pt1 (- self-ang a ) h))
    
35. (setq pt2a (polar pt1a  (- self-ang pi a) h))
    
36. 
    
37. (setq layername "G_SYMBOL（符号）")
    
38. (make_layer layername "Continuous" 3 0)
    
39. 
    
40. (setq temp-list (list pt10 pt1 pt2 pt2a pt1a pt10a))
    
41. 
    
42. (setq ss (ssadd)) ;设置选择集
    
43. (setq ss (ssadd (make_pline temp-list layername nil) ss))
    
44. ;多线
    
45. 
    
46. )

(defun cut_symbol(pt0 pt00 pt-num / ss mid-pt self-ang pt1 pt2 pt1a pt2a pt10 pt10a a d h temp-dis temp-list)<br /> ;函数cut-symbol(pt0 pt00 sc-flag),参数sc-flag 比例，当nil为1：100，否则为1：25，返回值，生成对象的选择集<br /> ;Desiged by 林霄云 2014年1月20日<br /> (setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量<br /> ;(setq ang (angle '(0 0 0) (trans (getvar "UCSXDIR") 0 ucszdir)));生成UCS在OCS的角度，不通过组码，通过旋转实现<br /> (setq pt0 (trans (trans pt0 1 0) 0 ucszdir ));将插入点从UCS转WCS后转<br /> (setq pt00 (trans (trans pt00 1 0) 0 ucszdir ))<br /> <br /> (setq mid-pt (mid_point pt0 pt00))<br /> (setq self-ang (angle pt0 pt00))<br /> <br /> (setq pt-num (rem pt-num 3))<br /> ;pt-num 0<br /> (setq a (/ pi 3.0 )<br />     d 200<br />     h 150 )<br /> <br /> ;判断比例，按1：50与1：25考虑<br /> (if (= pt-num 1)<br /> (setq d 50<br />     h 37.5 ))<br />     <br /> (if (= pt-num 2)<br /> (setq d 100<br />     h 75 ))<br />     <br /> (setq pt1 (polar mid-pt (- self-ang pi) h))<br /> (setq pt10 (polar pt0 (- self-ang pi)  d))<br /> <br /> (setq pt1a (polar mid-pt self-ang   h))<br /> (setq pt10a (polar pt00 self-ang   d))<br /> <br /> (setq pt2 (polar pt1 (- self-ang a ) h))<br /> (setq pt2a (polar pt1a  (- self-ang pi a) h))<br /> <br /> (setq layername "G_SYMBOL（符号）")<br /> (make_layer layername "Continuous" 3 0)<br /> <br /> (setq temp-list (list pt10 pt1 pt2 pt2a pt1a pt10a))<br /> <br /> (setq ss (ssadd)) ;设置选择集<br /> (setq ss (ssadd (make_pline temp-list layername nil) ss))<br /> ;多线<br /> <br /> )

结果:实现目标，详附图。

tanle2020

要是能左击减小比例，右击加大比例，还可以直接输入比例就好

林霄云

tanle2020 发表于 2014-2-19 21:00
要是能左击减小比例，右击加大比例，还可以直接输入比例就好

左击比例循环；去除输入操作；去除对话框，是本命令的初衷。在结构专业中，常见比例就是1：100、25、50，满足一般要求。且截断符号的应用频率是比较低的。

林霄云

tanle2020 发表于 2014-2-19 21:00
要是能左击减小比例，右击加大比例，还可以直接输入比例就好

左击比例循环；去除输入操作；去除对话框，是本命令的初衷。在结构专业中，常见比例就是1：100、25、50，满足一般要求。且截断符号的应用频率是比较低的。

liuhaixin88

支持源码，感谢林大哥！

jesouris

"G_SYMBOL（符号）" 这是华阳的图层吗？

ymcui

支持源码