出错，求帮助。管道用已知2点，求2点距离，坡度，并标注在图纸上,

tranney

(defun c:YS1 ()
(setvar "CMDECHO" 0)
(if (and
      (setq pt1 (getpoint "\nFirst Point 点一 :"))
      (setq pt2 (getpoint pt1 "\nSecond Point 点二 :"))
     )
  (progn
  (setq xx (- (car pt2) (car pt1))
        yy (- (cadr pt2) (cadr pt1))
        num (/ yy 1.0 xx)
str (rtos (* 100 num) 2 1)
  )
  (setq dst (distance pt1 pt2)
        str1 (rtos (dst 2 1))
        dtt (strcat "DN300 L="str1 "m i="str "%")
        a1 (angle pt1 pt2)
        a2 (* (/ a1 pi) 180)
        ptt (polar pt1 a1 (/ dst 2))
  ))
     (command "text" "j" "bc" ptt 2.5 a2 dtt)
)
(princ)
)
求高手帮我看看

vectra

1. (defun c:ys1 ()
   
2.   (setvar "CMDECHO" 0)
   
3.   (if (and
   
4.         (setq pt1 (getpoint "\nFirst Point ?? :"))
   
5.         (setq pt2 (getpoint pt1 "\nSecond Point ?? :"))
   
6.       )
   
7.     (progn
   
8.       (setq xx        (- (car pt2) (car pt1))
   
9.             yy        (- (cadr pt2) (cadr pt1))
   
10.             num        (/ yy 1.0 xx)
    
11.             str        (rtos (* 100 num) 2 1)
    
12.       )
    
13.       (setq dst         (distance pt1 pt2)
    
14.             str1 (rtos dst 2 1) ;; FIX 1
    
15.             dtt         (strcat "DN300 L=" str1 "m i=" str "%")
    
16.             a1         (angle pt1 pt2)
    
17.             a2         (* (/ a1 pi) 180)
    
18.             ptt         (polar pt1 a1 (/ dst 2))
    
19.       )
    
20.       (command "text" "j" "bc" ptt 2.5 a2 dtt) ;; FIX2
    
21.     )
    
22. 
    
23.   )
    
24.   (princ)
    
25. )

(defun c:ys1 ()<br />   (setvar "CMDECHO" 0)<br />   (if (and<br />         (setq pt1 (getpoint "\nFirst Point ?? :"))<br />         (setq pt2 (getpoint pt1 "\nSecond Point ?? :"))<br />       )<br />     (progn<br />       (setq xx        (- (car pt2) (car pt1))<br />             yy        (- (cadr pt2) (cadr pt1))<br />             num        (/ yy 1.0 xx)<br />             str        (rtos (* 100 num) 2 1)<br />       )<br />       (setq dst         (distance pt1 pt2)<br />             str1 (rtos dst 2 1) ;; FIX 1<br />             dtt         (strcat "DN300 L=" str1 "m i=" str "%")<br />             a1         (angle pt1 pt2)<br />             a2         (* (/ a1 pi) 180)<br />             ptt         (polar pt1 a1 (/ dst 2))<br />       )<br />       (command "text" "j" "bc" ptt 2.5 a2 dtt) ;; FIX2<br />     )<br /> <br />   )<br />   (princ)<br /> )

FIX1 多余的括号删除
FIX2 command放置的位置有误

gtj116600

首先声明一下，我不是高手。现将程序修改如下：
(defun c:YS1 ()
(setvar "CMDECHO" 0)
(if (and
      (setq pt1 (getpoint "\nFirst Point 点一 :"))
      (setq pt2 (getpoint pt1 "\nSecond Point 点二 :"))
     )
  (progn
  (setq xx (- (car pt2) (car pt1))      
        yy (- (cadr pt2) (cadr pt1))
        num (/ yy 1.0 xx)
str (rtos (* 100 num) 2 1)
  )
  (setq dst (distance pt1 pt2)
        str1 (rtos dst 2 1)
        dtt (strcat "DN300 L="str1 "m i="str "%")
        a1 (angle pt1 pt2)
        a2 (* (/ a1 pi) 180)
        ptt (polar pt1 a1 (/ dst 2))
  )
(command "text" "j" "bc" ptt 2.5 a2 dtt)
)
)
(princ)
)

zyhandw

楼上两位正解

tranney

谢谢各位大哥热心帮忙

gtj116600

呵呵，想不到我也才参与过呀

leedun

vectra 发表于 2013-7-16 16:58
FIX1 多余的括号删除
FIX2 command放置的位置有误

前辈好，请问能不能实现动态确定文字标注位置