[求助]：合并为一个整体

szx025

(defun c:sj (/ olderr  pt pt1 pt2 pt3 i ku k1)
    (setq olderr  *error*
          *error* at_err
    )
    (setq oss (getvar "osmode"))
    (if        (setq pt1 (getpoint "\nPick point:"))
        (progn (setq i 0)
               (while (setq pt2 (getpoint pt1 "\nPick point:"))
                   (setq ku (angle pt1 pt2))
                   (setq k1 (+ ku pi))
                   (setq pt (polar pt1 k1 200))
                   (setvar "osmode" 0)
                   (if (= i 0)
                       (command "._text" "j" "mc" pt 350 0 "上")
                       ;(command "text" pt1 300 0 "下")
                   )
                   (command "line" pt1 pt2 "")
                   (command "")
                   (setq pt1 pt2
                         i   (1+ i)
                   )
               )
               (setq pt3 (polar pt1 k1 300))
               (command "Pline" pt1 "W" "0" "60" pt3 "")
        )
    )

    (setq *error* olderr)
    (setvar "osmode" oss)
    (princ)
)
这是一个画箭头的程序，请教高手，如何让(command "line" pt1 pt2 "")画的线和 (command "Pline" pt1 "W" "0" "60" pt3 "")画的箭头合并为一个整体

gysjy

请参阅：

2. 
   
3.   [FONT=courier new]
   
4.   
   
5. (defun c:jt (/ p1 p2 ang p3)          ;绘制箭头线的lisp
   
6.   (setvar "orthomode" 0)              ;取消正交模式
   
7.   (setvar "osmode" 0)                 ;取消捕捉模式
   
8.   (setvar "plinewid" 0)               ;设置初始宽度为0
   
9.   (setq p1 (getpoint "箭头起点:"))    ;赋予第一点     
   
10.   (setq p2 (getpoint "箭头终点:" p1)  ;赋予第二点
    
11.         ang (angle p2 p1)             ;求出两点间的方向角
    
12.         p3 (polar p2 ang 300)         ;设置第三点在p1、p2连线上，且距第二点为300
    
13.   )
    
14.   (command "pline" p1 p2 "w" "0" "100" p3 "")
    
15.   ;绘制了一个箭头线，箭头头部长300，宽100
    
16.   (princ)                             ;使程序"安静"地退出
    
17. )
    
18. 
    
19.   
    
20. 
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br />   <br /> (defun c:jt (/ p1 p2 ang p3)          ;绘制箭头线的lisp<br />   (setvar "orthomode" 0)              ;取消正交模式<br />   (setvar "osmode" 0)                 ;取消捕捉模式<br />   (setvar "plinewid" 0)               ;设置初始宽度为0<br />   (setq p1 (getpoint "箭头起点:"))    ;赋予第一点     <br />   (setq p2 (getpoint "箭头终点:" p1)  ;赋予第二点<br />         ang (angle p2 p1)             ;求出两点间的方向角<br />         p3 (polar p2 ang 300)         ;设置第三点在p1、p2连线上，且距第二点为300<br />   )<br />   (command "pline" p1 p2 "w" "0" "100" p3 "")<br />   ;绘制了一个箭头线，箭头头部长300，宽100<br />   (princ)                             ;使程序"安静"地退出<br /> )<br /> <br />   <br /> <br />   [/FONT]<br />

szx025

用用我的程序，应该比楼上的功能强

gysjy

最初由 szx025 发布
[B]用用我的程序，应该比楼上的功能强 [/B]

这里提供参考的程序只是回答合并为一个整体的问题，(command "pline" p1 p2 "w" "0" "100" p3 "")即可实现。

szx025

我的程序箭头前的线是可以连续画

ljttjl

联系ljttjl@tom.com,帮您解决这个问题