转ucs并进行线性标注

iamhuangjinming

想要达到的效果：点取2个点，然后把ucs转成这两个点形成的角度，然后进行线性标注。（转ucs后坐标怎么变换呢~~~求大神帮忙）
(defun C:dxw ()

  (setvar "CMDECHO" 0)

(command"'osmode""16383")

  (setq pt1 (getpoint "\n指定起点->"))

  (setq pt2 (getpoint pt1 "\n指定终点->"))

(setq p1(list 1 1 ))

(command"ucs" pt1 pt2 p1 )

(command"dimlinear" pt1 pt2)

(setvar "CMDECHO" 1)

  )

437271963

trans函数转换坐标.

2. (defun C:dxw ( / ang p1 p2 p3 pt1 pt2)
   
3. (setvar "CMDECHO" 0)
   
4. (setq #os1 (getvar "osmode"));提取捕捉
   
5. (if (and (setq pt1 (getpoint "\n指定起点->"))
   
6.           (setq pt2 (getpoint pt1 "\n指定终点->"))
   
7.      )
   
8.   (progn
   
9.    (setq p1 (trans pt1 1 0) p2 (trans pt2 1 0))
   
10.    (setq pt2 (mapcar '- pt2 pt1) p3 '(0 1))
    
11.    (setvar "osmode" 0);捕捉0
    
12.    (command"ucs" pt1 pt2 p3)
    
13.    (setq p1 (trans p1 0 1) p2 (trans p2 0 1))
    
14.    (setvar "osmode" 16383);设置捕捉
    
15.    (command"dimlinear" p1 p2)
    
16.    (setvar "osmode" #os1);捕捉还原
    
17.   )
    
18. )
    
19. (setvar "CMDECHO" 1)
    
20. (princ)
    
21. )

(defun C:dxw ( / ang p1 p2 p3 pt1 pt2)<br /> (setvar "CMDECHO" 0)<br /> (setq #os1 (getvar "osmode"));提取捕捉<br /> (if (and (setq pt1 (getpoint "\n指定起点->"))<br />           (setq pt2 (getpoint pt1 "\n指定终点->"))<br />      )<br />   (progn<br />    (setq p1 (trans pt1 1 0) p2 (trans pt2 1 0))<br />    (setq pt2 (mapcar '- pt2 pt1) p3 '(0 1))<br />    (setvar "osmode" 0);捕捉0<br />    (command"ucs" pt1 pt2 p3)<br />    (setq p1 (trans p1 0 1) p2 (trans p2 0 1))<br />    (setvar "osmode" 16383);设置捕捉<br />    (command"dimlinear" p1 p2)<br />    (setvar "osmode" #os1);捕捉还原<br />   )<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

iamhuangjinming

437271963 发表于 2016-10-13 22:04
trans函数转换坐标。

谢谢！这个转换不能带捕捉吗？

437271963

iamhuangjinming 发表于 2016-10-14 11:24
谢谢！这个转换不能带捕捉吗？

转换坐标系的时候，关闭捕捉，已经修改。

iamhuangjinming

437271963 发表于 2016-10-14 13:01
转换坐标系的时候，关闭捕捉，已经修改。

太好了，谢谢咯。