引线标注点筋与线筋源码解析（支持UCS）

林霄云

林霄云 发表于 2014-4-23 13:29
根据两点原则，1、不过度设计，避免多余错误。2、不过多操作。
基于此，我不断的看自己作品的演示图，以期 ...

原文在循环中，当交点在文字下划线之外时，应该更新文字下划线相应端点坐标。补充如下

2.                                         (if (< (distance pto1 pt-y)(distance pto2 pt-y))
   
3.                                         (if (< (distance pto1 pto2)(distance pto2 pt-y));确保在点在外面
   
4.                                         (progn (set-dxf tline 10 pt-y) (setq pto1 pt-y))
   
5.                                         )
   
6.                                         (if (< (distance pto1 pto2)(distance pto1 pt-y));确保在点在外面
   
7.                                         (progn (set-dxf tline 11 pt-y) (setq pto2 pt-y))
   
8.                                         )
   
9.                                         )

                                        (if (< (distance pto1 pt-y)(distance pto2 pt-y)) <br />                                         (if (< (distance pto1 pto2)(distance pto2 pt-y));确保在点在外面<br />                                         (progn (set-dxf tline 10 pt-y) (setq pto1 pt-y))<br />                                         )<br />                                         (if (< (distance pto1 pto2)(distance pto1 pt-y));确保在点在外面<br />                                         (progn (set-dxf tline 11 pt-y) (setq pto2 pt-y))<br />                                         )<br />                                         )

xyp1964

一次标全也许更好：

xyp1964

对话框版本：

海盗曹

支持一下，好程序啊

tianyi1230

结构的好程序！

tianyi1230

取代探索者吧！哈哈

429014673

林总,人才呀

林霄云

xyp1964 发表于 2014-4-23 13:58
对话框版本：

对话框，选择太累了。
动态输入钢筋直径，代码如下

2. (if (or (= (ascii "A") (cadr ptr)) (= (ascii "a") (cadr ptr)))
   
3.           (progn
   
4.           (setq   dia-style "%%130")
   
5.           (princ "\n等级修改为一级钢 ")
   
6.           (setq dia-str (strcat (itoa len) dia-style))
   
7.           (set-dxf qtext 1 dia-str)
   
8.           ))
   
9.           (if (or (= (ascii "F") (cadr ptr)) (= (ascii "f") (cadr ptr)))
   
10.           (progn
    
11.           (setq   dia-style "%%132")
    
12.           (princ "\n等级修改为三级钢 ")
    
13.           (setq dia-str (strcat (itoa len) dia-style))
    
14.           (set-dxf qtext 1 dia-str)
    
15.           ))

(if (or (= (ascii "A") (cadr ptr)) (= (ascii "a") (cadr ptr)))<br />           (progn <br />           (setq   dia-style "%%130")<br />           (princ "\n等级修改为一级钢 ")<br />           (setq dia-str (strcat (itoa len) dia-style))<br />           (set-dxf qtext 1 dia-str)<br />           ))<br />           (if (or (= (ascii "F") (cadr ptr)) (= (ascii "f") (cadr ptr))) <br />           (progn<br />           (setq   dia-style "%%132")<br />           (princ "\n等级修改为三级钢 ")<br />           (setq dia-str (strcat (itoa len) dia-style))<br />           (set-dxf qtext 1 dia-str)<br />           ))

xyp1964

林霄云 发表于 2014-4-23 22:06
对话框，选择太累了。
动态输入钢筋直径，代码如下

richine001

楼主太给力了，学习，学习