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

lotos1205 · 发表于 2007-3-3 21:47:02

请问如何在上述程序的基础之上实现带箭头的直线：
即画出的直线要带方向性，还要可以连续画，每两个点之间的直线都要带一个箭头，每两个点之间沿直线上方标注文字？

请高手指点！！

雨箭风刀 · 发表于 2007-3-3 22:46:38

定义一个dim标注样式即可!
前缀 xxx-
箭头大小,两边都要或只要一边你自己定
标注线抑制不显示

zml84 · 发表于 2007-3-4 13:26:34

下面这个尚未经过测试，请试一试先。
[PHP]
(defun C:test()
(if (setq str (getstring "\n请输入文字<35>:"))
(progn
      (if (= str "")
            (setq str (strcat "TB04-" "35"))
            (setq str (strcat "TB04-" str))
      )
      (while (if (setq pt1 getpoint "\n直线第一点:")
               (if (setq pt2 getpoint "\n直线第二点:")
               )
            )
            (setq pt3 (* 0.5 (+ pt1 pt2)))
            (command "_line" pt1 pt2 "")
            (command "text" pt3 2.5 (angtos(angle Pt1 Pt2)0 4) str)
      )
)
)
(princ)
)
[/PHP]

szx025 · 发表于 2007-3-4 14:09:51

语法错误

zml84 · 发表于 2007-3-4 14:24:59

17楼的方法很好，可以将直线、箭头和文字三者结为一体。
18楼的代码修改后如下：（由于是在网吧写的，故未能测试。）
[PHP]
(defun C:test()
(if (setq str (getstring "\n请输入文字<35>:"))
(progn
      (if (= str "")
            (setq str (strcat "TB04-" "35"))
            (setq str (strcat "TB04-" str))
      )
      (while (if (setq pt1 (getpoint "\n直线第一点:"))
               (if (setq pt2 (getpoint pt1 "\n直线第二点:"))
               )
            )
            (setq pt3 (* 0.5 (+ pt1 pt2)))
            (command "_line" pt1 pt2 "")
            (command "text"
                     pt3
                     ""
                     (* 180.
                        (/ (angle Pt1 Pt2) pi)
                     )
                     str
            )
      )
)
)
(princ)
)
[/PHP]

szx025 · 发表于 2007-3-4 17:05:40

还是语法错误

lotos1205 · 发表于 2007-3-4 22:54:07

辛苦了，非常感谢，你们太厉害了！

szx025 · 发表于 2007-3-5 07:35:24

(defun c:gt (/ pt1 pt2 pt3 pt4 str)
   (setq olderr *error*
         *error* at_err)
   (setvar "osmode" 0)
   (setq pt1 (getpoint "\n定位点:"))
   (setq pt2 (getpoint pt1 "\n定位点:"))
   (command "line" pt1 pt2 "")
   (setq pt3 (getpoint pt2 "\n定位点:"))
   (command "line" pt2 pt3 "")
   (setq pt4 (getpoint "\n插入点:"))
   (setq str (getstring "\n请输入梯高:"))
   (setq str (strcat "T4B09a-" str))
   (command "text" pt4 300 0 str)
   (setvar "osmode" 33)
   (setq *error* olderr)
   (princ)
   )
看看我自己根据论坛朋友意见写的程序

lotos1205 · 发表于 2007-3-11 19:08:17

文字生成可否不要插入点，自动沿线段生成在它的中上方？

carrot1983 · 发表于 2007-3-11 22:32:04

按楼上的要求，写的如下：
[php]
(defun mid_pt (a b)
(mapcar
'(lambda (a b) (/ (+ a b) 2))
a
b
)
)
(defun C:test()
(setq str (getstring "\n请输入文字<35>:"))
(if (= str "") (setq str (strcat "TB04-" "35")) (setq str (strcat "TB04-" str)))
(setq pt1 (getpoint "\n直线第一点:"))
(setq pt2 (getpoint pt1 "\n直线第二点:"))
(setq ang12 (angtos (angle pt1 pt2)))
(setq pt_mid (mid_pt pt1 pt2))
(setq txt_size (getvar "textsize"))
(command "line" pt1 pt2 "")
(command "text" "j" "bc" pt_mid txt_size ang12 str)
(princ)
)
[/php]

szx025 · 发表于 2007-3-12 07:34:51

有两个问题
1,如果直线从右向左画,文字是反的
2,文字不应该紧贴直线,而应空出一定的距离

xyp1964 · 发表于 2007-3-12 13:59:17

[FONT=courier new](defun c:test ()
(CMDLA0)
(setq int (UINT 7 "" "整数值" INT)
str (strcat "TB04-" (itoa int))
)
(while (setq e (entsel "\n选择曲线: "))
(setq s1 (car e)
etype (xyp-get-dxf 0 s1)
)
(if (member etype
'("LINE" "CIRCLE" "ELLIPSE" "POLYLINE" "ARC" "LWPOLYLINE")
)
(progn
(setq pt (osnap (cadr e) "near")
pt1 (xyp-get-RightPoint
(xyp-get-QiexianAtPoint s1 pt 100)
(xyp-get-QiexianAtPoint s1 pt -100)
100
)
ang (rad2ang (xyp-Rad2Real (xyp-get-AngleAtPoint s1 pt) 1))
)
(xyp-Text 2 pt1 str)
(command "rotate" (entlast) "" pt1 ang)
)
)
)
(CMDLA1)
)[/FONT]

zml84 · 发表于 2007-3-12 15:54:10

文字角度的问题已解决；文字偏移的距离可以通过设置常量解决。
修改后，代码如下：
[PHP]
(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))
      )
      (while (if (setq pt1 (getpoint "\n直线第一点:"))
         (if (setq pt2 (getpoint pt1 "\n直线第二点:"))
   T
         )
   )
(setq ang (angle Pt1 Pt2)
      pt3 (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 "")
(command "text" "j" "c" pt5 "" ang str)
      )
)
)
(princ)
)
[/PHP]

carrot1983 · 发表于 2007-3-12 17:47:22

楼上有心了。。。。
致敬。。。

xyp1964 · 发表于 2007-3-12 19:44:34

[php](defun c:test ()
  (cmdla0)
  (if(null int)(setq int 35))
  (setq int (UINT 7 "" "整数值" INT))
  (while (setq e (entsel"\n选择曲线实体: "))
(xyp-TextAtCurvePoint (car e) (osnap (cadr e) "near")
   50 (strcat "TB04-" (itoa int)) 2 1)
  )
  (cmdla1)
)[/php]

账号		自动登录	找回密码
密码			立即注册

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