命令合并成一个

yangist

请求把附件中的命令合并成一个,根据鼠标位置调整方向

newer

这样问问题，不太好让你帮你啊，截图，图中说明情况，你需要什么，你的程序哪部适合了什么的。

yangist

数字2 数字3 左右对称 想合并成1个命令

newer

一个命令，那么交互和用户的时候总有什么区别吧，你的想法呢？

laibinwu

看看是不是这个意思

1. (defun c:tt ()
   
2.   (setq pt1 (getpoint "\n 选取继续序号标注点:"))
   
3.   (setq dms (getvar "dimscale"))
   
4.   (setvar "ORTHOMODE" 1)
   
5.   (if (<= (- (car pt1) (car (getpoint "\n 指定方向点"))) 0)
   
6.     (setq pt2_1        (polar pt1 (- 0 (* pi 0.5)) (* dms 1.5))
   
7.           pt2        (polar pt2_1 0 (* dms 0.85))
   
8.           pt3        (polar pt1 0 (* dms 1.7))
   
9.           pt4        (polar pt3 0 (* dms 6))
   
10.           pt5_1        (polar pt3 0 (* dms 3))
    
11.           pt5        (polar pt5_1 (* pi 0.5) (* dms 2.8))
    
12.     )
    
13.     (setq pt2_1        (polar pt1 (- 0 (* pi 0.5)) (* dms 1.5))
    
14.           pt2        (polar pt2_1 pi (* dms 0.85))
    
15.           pt3        (polar pt1 pi (* dms 1.7))
    
16.           pt4        (polar pt3 pi (* dms 6))
    
17.           pt5_1        (polar pt3 pi (* dms 3))
    
18.           pt5        (polar pt5_1 (* pi 0.5) (* dms 2.8))
    
19.     )
    
20.   )
    
21.   (command "PLINE" pt1 pt2 pt3 pt4 "")
    
22.   (setq xhnum (getint "\n 输入序号值<1>: "))
    
23.   (if (= xhnum nil)
    
24.     (setq xhnum 1)
    
25.   )
    
26.   (command "_text" "j" "mc" pt5 (* dms 4) 0 xhnum)
    
27.   (princ)
    
28. )

(defun c:tt ()<br />   (setq pt1 (getpoint "\n 选取继续序号标注点:"))<br />   (setq dms (getvar "dimscale"))<br />   (setvar "ORTHOMODE" 1)<br />   (if (<= (- (car pt1) (car (getpoint "\n 指定方向点"))) 0)<br />     (setq pt2_1        (polar pt1 (- 0 (* pi 0.5)) (* dms 1.5))<br />           pt2        (polar pt2_1 0 (* dms 0.85))<br />           pt3        (polar pt1 0 (* dms 1.7))<br />           pt4        (polar pt3 0 (* dms 6))<br />           pt5_1        (polar pt3 0 (* dms 3))<br />           pt5        (polar pt5_1 (* pi 0.5) (* dms 2.8))<br />     )<br />     (setq pt2_1        (polar pt1 (- 0 (* pi 0.5)) (* dms 1.5))<br />           pt2        (polar pt2_1 pi (* dms 0.85))<br />           pt3        (polar pt1 pi (* dms 1.7))<br />           pt4        (polar pt3 pi (* dms 6))<br />           pt5_1        (polar pt3 pi (* dms 3))<br />           pt5        (polar pt5_1 (* pi 0.5) (* dms 2.8))<br />     )<br />   )<br />   (command "PLINE" pt1 pt2 pt3 pt4 "")<br />   (setq xhnum (getint "\n 输入序号值<1>: "))<br />   (if (= xhnum nil)<br />     (setq xhnum 1)<br />   )<br />   (command "_text" "j" "mc" pt5 (* dms 4) 0 xhnum)<br />   (princ)<br /> )

yangist

laibinwu
你好,意思差不多是这样的
选方向的时候开启正交才合适 完了恢复正交模式
能完善下么

laibinwu

yangist 发表于 2013-6-24 20:38
laibinwu
你好,意思差不多是这样的
选方向的时候开启正交才合适 完了恢复正交模式

(defun c:tt ()
  (setq pt1 (getpoint "\n 选取继续序号标注点:"))
  (setq dms (getvar "dimscale"))
  (setvar "ORTHOMODE" 1);开启正交
  (if (<= (- (car pt1) (car (getpoint "\n 指定方向点"))) 0)
    (setq pt2_1        (polar pt1 (- 0 (* pi 0.5)) (* dms 1.5))
          pt2        (polar pt2_1 0 (* dms 0.85))
          pt3        (polar pt1 0 (* dms 1.7))
          pt4        (polar pt3 0 (* dms 6))
          pt5_1        (polar pt3 0 (* dms 3))
          pt5        (polar pt5_1 (* pi 0.5) (* dms 2.8))
    )
    (setq pt2_1        (polar pt1 (- 0 (* pi 0.5)) (* dms 1.5))
          pt2        (polar pt2_1 pi (* dms 0.85))
          pt3        (polar pt1 pi (* dms 1.7))
          pt4        (polar pt3 pi (* dms 6))
          pt5_1        (polar pt3 pi (* dms 3))
          pt5        (polar pt5_1 (* pi 0.5) (* dms 2.8))
    )
  )
  (command "PLINE" pt1 pt2 pt3 pt4 "")
  (setq xhnum (getint "\n 输入序号值<1>: "))
  (if (= xhnum nil)
    (setq xhnum 1)
  )
  (command "_text" "j" "mc" pt5 (* dms 4) 0 xhnum)
  (princ)
)

yangist

可以了  谢谢