请帮帮忙

晓雨

我现在可以把剖面符号全部画好，但是，我不会确定箭头的方向，版主，你帮帮我吧。我不知道你明白我的意思不？


我是想把剖面符号用程序编好，我只需要点几个点，系统就可以把剖面符号画好，我点了pt1 pt pt                 .......pt3，我只能把短线画好，最后要确定箭头的方向，我是想我只要在屏幕上再点一点来确定箭头的方向，也就是视线的方向，我不会这一步，请版主帮忙碌

晓雨

(defun c:0(/ n pt0 pt1 pt2 pt3 pt4 )
(setq pt1(getpoint "\n 输入第一点: "))
(setq pt2(getpoint "\n 输入下一点: " ))
(setq ang1(angle pt1 pt2))
(setq pt10(polar pt1 ang1 4))
(setq pt20(polar pt2 (+ ang1 pi) 4))
(command "pline" pt1 "w" "0.5" "" pt10 "")
(command "pline" pt2 pt20 "")


(while (setq pt3(getpoint "\n 输入下一点: " ))
(setq ang2(angle pt2 pt3))
(setq pt21(polar pt2 ang1 4))
(setq pt30(polar pt3 (+ ang1 pi) 4))
(command "pline" pt2 "w" "0.5" "" pt21 "")
(command "pline" pt3 pt30 "")
(setq pt2 pt3)
)

(setq pt00(getpoint "\n 剖视的方向: "))
(if(

;版主,加上几句吧

(
(command "leader" pt5 pt6 "")
)

SWAYWOOD

剖视方向可能不能用一点来确定



不然，你完全可以在pt2的基础上再引出一个垂直点就搞定了

s678z

mccad 发表于 2004-4-5 19:22
呵呵，这是几年前的程序，包括单个序号，垂直多个序号和水平多个序号。水平多个序号绘制时是根据用户选取的 ...

这个程序不错，再加上放大系数，在图框放大时可直接用，并自动循环，参考下面的程序
(defun c:n (/ p1 p2 p3 txt)
  (if (= scalefactor nil)
(setq scalefactor (getreal "\nPlease input scalefactor:"))
)
(setq txt (getstring "\nNumber: "))
(while (and (setvar "OSMODE" 0)
            (setq p1 (getpoint "\nInput P1: "))
            (setvar "OSMODE" 512)
            (setq p2 (getpoint p1 "\nInput P2: "))
           (setvar "OSMODE" 0)
           (setq p3 (getpoint p2 "\nInput P3: ")))
(setq angle1 (angle p2 p3))
  (if (< (/ pi 2) angle1 (* 1.5 pi)) (progn
   (command "pline" p1 p2 (polar p2 pi (* 7 scalefactor)) "")
   (command "text" "j" "bc" (polar p2 2.737 (* 3.5 scalefactor)) (* 5 scalefactor) 0 txt "")
  )
(progn
   (command "pline" p1 p2 (polar p2 0 (* 7 scalefactor)) "")
  (command "text" "j" "bc" (polar p2 0.4 (* 3.5 scalefactor)) (* 5 scalefactor) 0 txt "")
  ))
  (command "change" "l" "" "p" "la" "文字标注层" "")
  (setq txt (itoa (1+ (atoi txt))))
)
(princ)
(setvar "OSMODE" 167)
)

qq229918602

晓雨 发表于 2004-4-5 18:54
你告诉我，这张照片给你的感觉是不是我很土，不许说谎，

求近照才能知道呢。。。太远了。

gao051525

看前辈们在这里谈笑间把问题解决了，真是羡煞人耶