程序中的问题

fuhuodao

(defun C:zbbz( / zb gd cld osm )

  (setq osm (getvar"osmode"))

  (setvar "osmode" 33)

  (setq gd (getreal "指定标注文字高度:>"))

  (if (= gd nil) (setq gd 0.5))

  (while (setq zb (getpoint "指定坐标点："))

   

  (setq cld(getpoint  zb  "指定文字插入点："))

   

  (entmake (list

       '(0 . "LINE")

       '(67 . 0)

      '(8 . "0")

      (list  10  (car zb)  (cadr zb) 0)

      (list 11 (car cld) (cadr cld)  0)

      '(210 0.0 0.0 1.0)

      )

)

  (entmake (list

      '(0 . "text")

       (list 10  (+ (car cld) gd)  (car(cdr cld)) )

       (cons 40 gd)

       (cons 1 ( strcat  "X="  (rtos (cadr zb)  2 3)))

      '(50 . 0)

      )

    )

  (entmake (list

      '(0 . "text")

       (list 10  (+ (car cld) gd)

          (- (car(cdr cld))  (+ gd (/ gd 3))  )

          )

       (cons 40 gd)

       (cons 1 (strcat "Y="(rtos (car zb) 2 3)))

      '(50 . 0)

      )

    )

)

  (setvar "osmode" osm)

  (princ)

   

  )
这个程序中标注的时候，当UCS坐标系和WCS坐标系不是同一个的时候，标注线还是WCS坐标系，怎么改为UCS坐标系呢

zxq0220

2. (defun C:zbbz( / zb gd cld osm )
   
3. (setq osm (getvar "osmode"))
   
4. (setvar "osmode" 33)
   
5. (setq gd (getreal "指定标注文字高度:>"))
   
6. (if (= gd nil) (setq gd 0.5))
   
7. (while (setq zb (getpoint "指定坐标点："))
   
8.   (setq cld(getpoint  zb  "指定文字插入点："))
   
9.   (entmake
   
10.    (list
    
11.     '(0 . "LINE")
    
12.     '(67 . 0)
    
13.     '(8 . "0")
    
14.     (list 10 (trans(list (car zb) (cadr zb) 0) 0 1))
    
15.     (list 11 (trans(list(car cld) (cadr cld) 0) 0 1))
    
16.    )
    
17.   )
    
18.   (entmake
    
19.    (list
    
20.     '(0 . "TEXT")
    
21.      (list 10 (trans(list(+ (car cld) gd) (car(cdr cld))) 0 1))
    
22.      (cons 40 gd)
    
23.      (cons 1 (strcat "X=" (rtos (cadr zb) 2 3)))
    
24.      '(50 . 0)
    
25.     )
    
26.   )
    
27.   (entmake
    
28.    (list
    
29.     '(0 . "TEXT")
    
30.      (list 10 (trans(list(+ (car cld) gd) (- (car(cdr cld)) (+ gd (/ gd 3)))) 0 1))
    
31.      (cons 40 gd)
    
32.      (cons 1 (strcat "Y=" (rtos (car zb) 2 3)))
    
33.      '(50 . 0)
    
34.    )
    
35.   )
    
36. )
    
37. (setvar "osmode" osm)
    
38. (princ)
    
39. )
    

(defun C:zbbz( / zb gd cld osm ) <br /> (setq osm (getvar "osmode")) <br /> (setvar "osmode" 33) <br /> (setq gd (getreal "指定标注文字高度:>")) <br /> (if (= gd nil) (setq gd 0.5)) <br /> (while (setq zb (getpoint "指定坐标点：")) <br />   (setq cld(getpoint  zb  "指定文字插入点：")) <br />   (entmake<br />    (list <br />     '(0 . "LINE") <br />     '(67 . 0) <br />     '(8 . "0") <br />     (list 10 (trans(list (car zb) (cadr zb) 0) 0 1)) <br />     (list 11 (trans(list(car cld) (cadr cld) 0) 0 1))<br />    ) <br />   ) <br />   (entmake<br />    (list <br />     '(0 . "TEXT") <br />      (list 10 (trans(list(+ (car cld) gd) (car(cdr cld))) 0 1))<br />      (cons 40 gd) <br />      (cons 1 (strcat "X=" (rtos (cadr zb) 2 3))) <br />      '(50 . 0) <br />     ) <br />   ) <br />   (entmake<br />    (list <br />     '(0 . "TEXT") <br />      (list 10 (trans(list(+ (car cld) gd) (- (car(cdr cld)) (+ gd (/ gd 3)))) 0 1)) <br />      (cons 40 gd) <br />      (cons 1 (strcat "Y=" (rtos (car zb) 2 3))) <br />      '(50 . 0) <br />    ) <br />   ) <br /> ) <br /> (setvar "osmode" osm) <br /> (princ) <br /> )<br />

newer

用 TRANS函数变换点