[求助]：如何做到只在起点处有字

szx025

;;;--------箭头线----------

(defun c:jt (/ pt1 pt2 pt3 )
       (setq olderr *error*
           *error* at_err)
(if (setq pt1 (getpoint "\nPick point:"))
     (while (setq pt2 (getpoint pt1 "\nPick point:"))
       (setq ku (angle pt1 pt2))
       (setq k1 (+ ku pi))
       (setvar "osmode" 0)
       (command "text" pt1 300 0 "下")
       (command "pline" pt1 "W" "0" "" pt2 "")
       (command "")
       (setq pt1 pt2)
      )
  )
(setq pt3 (polar pt1 k1 500))
(command "Pline" pt1 "W" "0" "70" pt3 "")
       (setq *error* olderr)
       (princ)
)
这是我编的一个画箭头线的程序,请高手完善一下,程序中写的"下"在每个点上都有,我只想在起点处有"上",如何做到

zml84

根据我的理解，修改后：

2. 
   
3. ;;;--------箭头线----------
   
4. (defun c:jt (/ olderr pt1 pt2 pt3 i ku k1)
   
5.     (setq olderr  *error*
   
6.           *error* at_err
   
7.     )
   
8. 
   
9.     (if        (setq pt1 (getpoint "\nPick point:"))
   
10.         (progn (setq i 0)
    
11.                (while (setq pt2 (getpoint pt1 "\nPick point:"))
    
12.                    (setq ku (angle pt1 pt2))
    
13.                    (setq k1 (+ ku pi))
    
14.                    (setvar "osmode" 0)
    
15.                    (if (= i 0)
    
16.                        (command "text" pt1 300 0 "上")
    
17.                        (command "text" pt1 300 0 "下")
    
18.                    )
    
19.                    (command "pline" pt1 "W" "0" "" pt2 "")
    
20.                    (command "")
    
21.                    (setq pt1 pt2
    
22.                          i   (1+ i)
    
23.                    )
    
24.                )
    
25.                (setq pt3 (polar pt1 k1 500))
    
26.                (command "Pline" pt1 "W" "0" "70" pt3 "")
    
27.         )
    
28.     )
    
29. 
    
30.     (setq *error* olderr)
    
31.     (princ)
    
32. )
    

<br /> ;;;--------箭头线----------<br /> (defun c:jt (/ olderr pt1 pt2 pt3 i ku k1)<br />     (setq olderr  *error*<br />           *error* at_err<br />     )<br /> <br />     (if        (setq pt1 (getpoint "\nPick point:"))<br />         (progn (setq i 0)<br />                (while (setq pt2 (getpoint pt1 "\nPick point:"))<br />                    (setq ku (angle pt1 pt2))<br />                    (setq k1 (+ ku pi))<br />                    (setvar "osmode" 0)<br />                    (if (= i 0)<br />                        (command "text" pt1 300 0 "上")<br />                        (command "text" pt1 300 0 "下")<br />                    )<br />                    (command "pline" pt1 "W" "0" "" pt2 "")<br />                    (command "")<br />                    (setq pt1 pt2<br />                          i   (1+ i)<br />                    )<br />                )<br />                (setq pt3 (polar pt1 k1 500))<br />                (command "Pline" pt1 "W" "0" "70" pt3 "")<br />         )<br />     )<br /> <br />     (setq *error* olderr)<br />     (princ)<br /> )<br />

szx025

谢谢,学到一招,

TLHMQH

在出现第二个“Pick point:”时，出现提示：
Pick point:未知命令“JT”。按 F1 查看帮助。
另如想在箭头前标字，怎样改写？
谢！

zml84

对不住了，我在二楼的帖的代码未作认真检查，多出一行:
[php](COMMAND "")[/php]
将其删去即可。
完整代码如下：

2. 
   
3. (defun c:jt (/ olderr pt1 pt2 pt3 i ku k1)
   
4.     (setq olderr  *error*
   
5.           *error* at_err
   
6.     )
   
7. 
   
8.     (if        (setq pt1 (getpoint "\nPick point:"))
   
9.         (progn (setq i 0)
   
10.                (while (setq pt2 (getpoint pt1 "\nPick point:"))
    
11.                    (setq ku (angle pt1 pt2)
    
12.                          k1 (+ ku pi)
    
13.                    )
    
14.                    (setvar "osmode" 0)
    
15.                    ;;(command "_style" "" "宋体" "" "" "" "" "")
    
16.                    (if (= i 0)
    
17.                        (command "text" pt1 300 0 "上")
    
18.                        (command "text" pt1 300 0 "下")
    
19.                    )
    
20.                    (command "_pline" pt1 "W" "0" "" pt2 "")
    
21.                    ;;(command "")
    
22.                    (setq pt1 pt2
    
23.                          i   (1+ i)
    
24.                    )
    
25.                )
    
26.                (setq pt3 (polar pt1 k1 500))
    
27.                (command "Pline" pt1 "W" "0" "70" pt3 "")
    
28.         )
    
29.     )
    
30. 
    
31.     (setq *error* olderr)
    
32.     (princ)
    
33. )
    

<br /> (defun c:jt (/ olderr pt1 pt2 pt3 i ku k1)<br />     (setq olderr  *error*<br />           *error* at_err<br />     )<br /> <br />     (if        (setq pt1 (getpoint "\nPick point:"))<br />         (progn (setq i 0)<br />                (while (setq pt2 (getpoint pt1 "\nPick point:"))<br />                    (setq ku (angle pt1 pt2)<br />                          k1 (+ ku pi)<br />                    )<br />                    (setvar "osmode" 0)<br />                    ;;(command "_style" "" "宋体" "" "" "" "" "")<br />                    (if (= i 0)<br />                        (command "text" pt1 300 0 "上")<br />                        (command "text" pt1 300 0 "下")<br />                    )<br />                    (command "_pline" pt1 "W" "0" "" pt2 "")<br />                    ;;(command "")<br />                    (setq pt1 pt2<br />                          i   (1+ i)<br />                    )<br />                )<br />                (setq pt3 (polar pt1 k1 500))<br />                (command "Pline" pt1 "W" "0" "70" pt3 "")<br />         )<br />     )<br /> <br />     (setq *error* olderr)<br />     (princ)<br /> )<br />