[求助]编写一程序，由用户选取直线，然后沿着该直线角度，在线的上方输入文字

254562519

我写了一个，但是不好。。

;;2010.05.29
;;求直线长度并标记
;;需选择直线、文字高度、比例因子
                                                                       

 

(DEFUN C:CD()
  (SETVAR "CMDECHO" 0)
  (GRAPHSCR)
  (SETQ K T)
  (WHILE K
    (INITGET "S L A")
    (SETQ K(GETKWORD "\n请选择直线[多条(S)][图层(L)/所有(A)]<退出>："))
    (COND ((EQUAL K NIL)(EXIT))
   ((EQUAL K "S")(SETQ E1 (SSGET)))
   ((EQUAL K "L")(INITGET 1)(SETQ layer_name (GETSTRING "\n请输入图层名:"))
                            (SETQ E1 (SSGET "x" '((8 . "layer_name")(0 . "LINE")))))
   ((EQUAL K "A")(SETQ E1(SSGET "X" '((0 . "LINE")))))
  
    )
;;;输入高度和比例因子
    (SETQ H 10)
    (SETQ B 100)
    (INITGET 6)
    (SETQ H (GETDIST "\n请输入高度<10>："))
    (SETQ B (GETREAL "\n请输入比例因子<100>: "))
;::::::::::::::::  
    (SETQ SLEN (SSLENGTH E1))
    (SETQ n 0)
    (WHILE (< n SLEN)
      (SETQ LL (SSNAME E1 n))
      (SETQ ST (entget LL))
      (SETQ P1 (CDR (ASSOC 10 ST)))                      ;获得直线起点坐标
      (SETQ P2 (CDR (ASSOC 11 ST)))                      ;获得直线终点坐标
       (SETQ ANG (ANGLE P1 P2))                           ;获得直线角度
;=== 求文字方向
  (COND ((AND(< ANG (/ PI 2))(>= ANG 0)) (SETQ ANG1 ANG))
 ((AND (>= ANG (/ PI 2))(< ANG PI))(SETQ ANG1 (+ ANG PI)))
 ((AND (>= ANG PI)(< ANG (* 1.5 PI))(SETQ ANG1 (- ANG PI))))
 ((AND(>= ANG (* PI 1.5))(<= ANG (* 2 PI))) (SETQ ANG1 ANG))
  )
;....................
;===求文字相对于直线位置
  (COND ((AND(< ANG (/ PI 2))(>= ANG 0)) (SETQ ANG2 (+ ANG (* 0.5 PI))))
        ((AND (>= ANG (/ PI 2))(<= ANG (* 1.5 PI))(SETQ ANG2 (- ANG (* 0.5 PI)))))
 ((AND(>= ANG (* PI 1.5))(<= ANG (* 2 PI))) (SETQ ANG2 (- ANG(* 1.5 PI))))     
  )
;.....................
  (SETQ L (DISTANCE P1 P2))                          ;获得直线长度
  (SETQ L (FIX (+ L 0.5)))                           ;长度四舍五入后取整
  (SETQ L (ITOA L))                                  ;将整数转换为字符串
  (SETQ P3 (LIST(+ (CAR P1)(/(-(CAR P2)(CAR P1))2.0))(+(CADR P1)(/(-(CADR P2)(CADR P1))2.0))))    ;求直线中点
  (SETQ P4 (POLAR P3 ANG2 (* H 0.8)))                ;求文字中心点坐标
  (SETQ ANG1 (/ (* ANG1 180) PI))                      ;将弧度转化为角度
  (SETQ TEX (STRCAT "L=" L))                         ;连接字符串
  (COMMAND ".TEXT" "J" "MC" P4 H ANG1 TEX)            ;输出长度
      (SETQ n (+ n 1))
     )
   )
)

 

 

 

 

 

求高手帮个忙。