【菜鸟集】写第一个程序，求完善和指教！

spp_wall

edata 发表于 2014-1-10 19:22
你指的的提取标高 文字的内容吧，最好提供dwg文件。

任意的数字 文字 应该都可以！ 只是用来计算的 现在只写简单的  太复杂的自己也理解不了 并不是三维的文字！

edata

2. (defun c:tt(/ CD E1 E2 E3 LPT1 LPT2 PD PT QDBG SS1 SS2 SS3 ZDBG ZDBGE1)
   
3.   (if(and (princ"\n选择起点标高文字:")(setq ss1(ssget ":E:S" '((0 . "*text"))))
   
4.           (princ"\n选择坡度文字:")(setq ss2(ssget ":E:S" '((0 . "*text"))))
   
5.           (princ"\n选择长度线段:")(setq ss3(ssget ":E:S" '((0 . "line"))))
   
6.           )
   
7.     (progn
   
8.       (setq e1(entget(ssname ss1 0))
   
9.             e2(entget(ssname ss2 0))
   
10.             e3(entget(ssname ss2 0))
    
11.             )
    
12.       (setq qdbg(atof(cdr(assoc 1 e1)))
    
13.             pd(atof(cdr(assoc 1 e2)))
    
14.             lpt1(cdr(assoc 10 e2))
    
15.             lpt2(cdr(assoc 11 e2))
    
16.             cd(distance lpt1 lpt2))
    
17.       (setq zdbg (- qdbg (* (/ pd 100.0 ) cd )))
    
18.       (if (and zdbg (setq pt(getpoint "\n指定标高文字位置:")))
    
19.         (progn
    
20.           (setq zdbge1 e1
    
21.                 zdbge1(subst(cons 1 (rtos zdbg 2 2))(assoc 1 zdbge1)zdbge1)
    
22.                 zdbge1(subst(cons 10 pt)(assoc 10 zdbge1)zdbge1)
    
23.                 )
    
24.           (entmake zdbge1)
    
25.           )
    
26.         (princ "\n!!未指定标高位置点!!")
    
27.         )
    
28.       )
    
29.     (princ "\n!!未正确选择对象!!")
    
30.     )
    
31.   (princ)
    
32.   )
    
33.       

(defun c:tt(/ CD E1 E2 E3 LPT1 LPT2 PD PT QDBG SS1 SS2 SS3 ZDBG ZDBGE1)<br />   (if(and (princ"\n选择起点标高文字:")(setq ss1(ssget ":E:S" '((0 . "*text"))))<br />           (princ"\n选择坡度文字:")(setq ss2(ssget ":E:S" '((0 . "*text"))))<br />           (princ"\n选择长度线段:")(setq ss3(ssget ":E:S" '((0 . "line"))))<br />           )<br />     (progn<br />       (setq e1(entget(ssname ss1 0))<br />             e2(entget(ssname ss2 0))<br />             e3(entget(ssname ss2 0))<br />             )<br />       (setq qdbg(atof(cdr(assoc 1 e1)))<br />             pd(atof(cdr(assoc 1 e2)))<br />             lpt1(cdr(assoc 10 e2))<br />             lpt2(cdr(assoc 11 e2))<br />             cd(distance lpt1 lpt2))<br />       (setq zdbg (- qdbg (* (/ pd 100.0 ) cd )))<br />       (if (and zdbg (setq pt(getpoint "\n指定标高文字位置:")))<br />         (progn<br />           (setq zdbge1 e1<br />                 zdbge1(subst(cons 1 (rtos zdbg 2 2))(assoc 1 zdbge1)zdbge1)<br />                 zdbge1(subst(cons 10 pt)(assoc 10 zdbge1)zdbge1)<br />                 )<br />           (entmake zdbge1)<br />           )<br />         (princ "\n!!未指定标高位置点!!")<br />         )<br />       )<br />     (princ "\n!!未正确选择对象!!")<br />     )<br />   (princ)<br />   )<br />       

spp_wall

edata 发表于 2014-1-10 21:40

谢谢帮助  我自己消化一下！！

spp_wall

edata 发表于 2014-1-10 21:40

怎么最后的结果指定的位置没用  插入的结果  老是以开始点取的文字？