请问动态插入水流向箭头与曲线相切（平行）怎么实现呀

hl2006

yangchao2005090 发表于 2018-7-27 16:59
其他网上收集的，已经注明出处，收点明经币

用不了..................................

zmzk

yangchao2005090 发表于 2018-7-27 16:56
网上下载的，已经注明出处，大概整理了一下，收1明经币

用不了，运行出错！！！请选择一条线Error: Automation 错误。 文件处理器错误

lht

画流向箭头
(defun c:hlxjt ()
    (setvar "osmode" 0)
    (setvar "cmdecho" 0)
    (command "UCS" "w")
    (setq pa (getpoint "\n请确定流向箭头的起点："))
    (setq pb (getpoint pa "\n请确定流向箭头的流向："))
    (setq pc (polar pa (+ (angle pa pb) 1.570796327) 50))
    (command "UCS" "3" pa pb pc)
    (command "UCS" "m" (list 0 -15))
    (setq p0 (list 0 0 0))
    (setq p1 (list 18 15 0))
    (setq p2 (list 0 30 0))
    (setq p3 (list 28 22 0))
    (setq p4 (list 82 17.5 0))
    (setq p5 (list 60 30 0))
    (setq p6 (list 100 15 0))
    (setq p7 (list 60 0 0))
    (setq p8 (list 82 12.5 0))
    (setq p9 (list 28 8 0))
    (command "_color" 5)
    (command "_pline" p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 "c")
    (command "_hatch" "solid" (entlast) "")
    (command "_color" "byblock")
    (command "UCS" "w")   
    (setvar "osmode" 35)
)

lht

画弯箭头
(defun C:hjt()
  (prompt "\n绘制箭头")
  (setvar "cmdecho" 0)
  (setq oldmode (getvar "osmode"))
  (setvar "osmode" 0)
  (initget "A B C")
  (setq enda (getkword "\n直箭头A/弯箭头B/大弯箭头<C> <A>")
        enda (if enda enda "A"))
        (while (setq p1 (getpoint "\n箭头的尖端位置:")
        p2 (getpoint p1 "\n箭头的另一端:")
        dd (distance p1 p2))
  (prompt (rtos dd 2 4))
  (setq w (* dd 1.2)
        an (angle p1 p2)
        p3 (polar p2 (+ an (* pi 0.5)) (/ w 2.0))
        p4 (polar p2 (+ an (* pi 1.5)) (/ w 2.0)))
  (if (= enda "A")
  (progn
  (command "solid" p1 p3 p1 p4 ""
           "pline" p2 "w" (* w 0.4) (* w 0.4) (polar p2 an (getdist p2)) "")
   )
   )
   (if (= enda "B")
   (command "pline" p1 "w" "0" w p2 "w" (* w 0.4) (* w 0.4) "a" pause "")
   )
   (if (= enda "C")
   (command "pline" p1 "w" "0" w p2 "w" (* w 0.4) (* w 1.2) "a" pause "")
    )
    (if (= p1 nil) (exit))
    )
  (setvar "osmode" oldmode)
  (prin1)
)