[求助]：在指定位置写出要求的文字

lotos1205

28楼代码不错，辛苦了，只是还有两个小问题，直线可否像ＰＬＩＮＥ线一样连续绘出，箭头只有半边？

zml84

根据31楼的要求，将28楼的代码修改后如下：
[PHP]
;;; zml84 于 2007-03-13  14:28
(defun C:test ()
    (if        (setq str (getstring "\n请输入文字<35>:"))
        (progn
            ;;从直线上偏移的距离
            (setq p 0.1)
            ;;箭头角度(弧度)
            (setq jt-jd 0.174532925199432957692369076848860)
            ;;箭头大小
            (setq jt-dx 0.5)
            (if        (= str "")
                (setq str (strcat "TB04-" "35"))
                (setq str (strcat "TB04-" str))
            )
            (if        (setq pt1 (getpoint "\n指定起点:"))
                (while (setq pt2 (getpoint pt1 "\n指定下一点:"))
                    (setq ang (angle Pt1 Pt2)
                          pt3 (polar pt2 (+ (+ ang pi) jt-jd) jt-dx)
                          pt6 (polar pt2 (- (+ ang pi) jt-jd) jt-dx)
                    )
                    (if        (and (> ang (* 0.5 pi))
                             (< ang (* 1.5 pi))
                        )
                        (setq ang (- ang pi))
                    )
                    (setq pt4 (list (* 0.5 (+ (car pt1) (car pt2)))
                                    (* 0.5 (+ (cadr pt1) (cadr pt2)))
                              )
                          pt5 (polar pt4 (+ ang (* 0.5 pi)) p)
                    )
                    (setq ang (* (/ ang pi) 180.))
                    (command "_pline" pt1 pt2 pt3 pt2 pt6 "")
                    (command "text" "j" "c" pt5 "" ang str)
                    (setq pt1 pt2)
                )
            )
        )
    )
    (princ)
)
[/PHP]

lotos1205

楼上的，太棒了！


zml84 可否跟进一下，箭头可否放在直线中间，且角的两边长度为０.６Ｍ，角度为６０度？直线线宽为０.１５。

zml84

不能老是吃鱼

2. 
   
3. ;;; zml84 于 2007-04-04  14:30
   
4. (defun C:test ()
   
5.   (if (setq str (getstring "\n请输入文字<35>:"))
   
6.     (progn
   
7.       ;;文字高度
   
8.       (setq str-size 2.5)
   
9.       ;;文字从直线上偏移的距离
   
10.       (setq str-p 0.1)
    
11.       ;;直线宽度
    
12.       (setq line-k 0.15)
    
13.       ;;箭头角度(弧度)
    
14.       (setq jt-jd 60
    
15.             jt-jd (* (/ jt-jd 360.) pi)
    
16.       )
    
17.       ;;箭头大小
    
18.       (setq jt-size 0.6)
    
19.       (if (= str "")
    
20.         (setq str (strcat "TB04-" "35"))
    
21.         (setq str (strcat "TB04-" str))
    
22.       )
    
23.       (if (setq pt1 (getpoint "\n指定起点:"))
    
24.         (while (setq pt2 (getpoint pt1 "\n指定下一点:"))
    
25.           (setq ang (angle Pt1 Pt2))
    
26.           (if (and (> ang (* 0.5 pi))
    
27.                    (< ang (* 1.5 pi))
    
28.               )
    
29.             (setq ang (- ang pi))
    
30.           )
    
31.           (setq        pt4 (list (* 0.5 (+ (car pt1) (car pt2)))
    
32.                           (* 0.5 (+ (cadr pt1) (cadr pt2)))
    
33.                     )
    
34.                 pt5 (polar pt4 (+ ang (* 0.5 pi)) str-p)
    
35.           )
    
36.           (setq
    
37.             pt6        (polar pt4 (+ (+ ang pi) jt-jd) jt-size)
    
38.             pt7        (polar pt4 (- (+ ang pi) jt-jd) jt-size)
    
39.           )
    
40. 
    
41.           (setq ang (* (/ ang pi) 180.))
    
42.           (command "_pline"         pt1        "w"    line-k ""     pt4
    
43.                    "w"          0         ""        pt6    pt4    pt7    pt4
    
44.                    "w"          line-k ""        pt2    ""
    
45.                   )
    
46.           (command "text" "j" "c" pt5 "" ang str)
    
47.           (setq pt1 pt2)
    
48.         )
    
49.       )
    
50.     )
    
51.   )
    
52.   (princ)
    
53. )
    

<br /> ;;; zml84 于 2007-04-04  14:30 <br /> (defun C:test ()<br />   (if (setq str (getstring "\n请输入文字<35>:"))<br />     (progn<br />       ;;文字高度 <br />       (setq str-size 2.5)<br />       ;;文字从直线上偏移的距离 <br />       (setq str-p 0.1)<br />       ;;直线宽度 <br />       (setq line-k 0.15)<br />       ;;箭头角度(弧度)<br />       (setq jt-jd 60<br />             jt-jd (* (/ jt-jd 360.) pi)<br />       )<br />       ;;箭头大小 <br />       (setq jt-size 0.6)<br />       (if (= str "")<br />         (setq str (strcat "TB04-" "35"))<br />         (setq str (strcat "TB04-" str))<br />       )<br />       (if (setq pt1 (getpoint "\n指定起点:"))<br />         (while (setq pt2 (getpoint pt1 "\n指定下一点:"))<br />           (setq ang (angle Pt1 Pt2))<br />           (if (and (> ang (* 0.5 pi))<br />                    (< ang (* 1.5 pi))<br />               )<br />             (setq ang (- ang pi))<br />           )<br />           (setq        pt4 (list (* 0.5 (+ (car pt1) (car pt2)))<br />                           (* 0.5 (+ (cadr pt1) (cadr pt2)))<br />                     )<br />                 pt5 (polar pt4 (+ ang (* 0.5 pi)) str-p)<br />           )<br />           (setq<br />             pt6        (polar pt4 (+ (+ ang pi) jt-jd) jt-size)<br />             pt7        (polar pt4 (- (+ ang pi) jt-jd) jt-size)<br />           )<br /> <br />           (setq ang (* (/ ang pi) 180.))<br />           (command "_pline"         pt1        "w"    line-k ""     pt4<br />                    "w"          0         ""        pt6    pt4    pt7    pt4<br />                    "w"          line-k ""        pt2    ""<br />                   )<br />           (command "text" "j" "c" pt5 "" ang str)<br />           (setq pt1 pt2)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

lotos1205

呵呵，就这一次啦，我已经在抽空学lisp 了，前段时间太忙，又需要这个，又没空研究这个，急，才找到这里的．想自己改又搞不定．总之非常感谢你啦，我一定认真学，争取有一天能帮别人解决问题．