yangchao2005090 发表于 2018-7-26 14:08:23

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

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

lht 发表于 2024-7-8 21:50:22

画弯箭头
(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)
)

yangchao2005090 发表于 2018-7-27 16:59:21

spp_wall 发表于 2018-7-27 16:18
共享下

其他网上收集的，已经注明出处，收点明经币:lol

jiang__jin 发表于 2020-11-21 16:28:23

什么功能!有图吗

yangchao2005090 发表于 2018-7-26 14:43:08

已经找到已经找到

spp_wall 发表于 2018-7-27 16:18:15

共享下

yangchao2005090 发表于 2018-7-27 16:56:26

spp_wall 发表于 2018-7-27 16:18
共享下

网上下载的，已经注明出处，大概整理了一下，收1明经币:lol

mapple666 发表于 2018-8-8 15:18:09

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

共享下、、、、、、

qq1254582201 发表于 2018-8-9 01:46:38

在哪里？为啥我看不到

fushaoqing 发表于 2019-5-18 22:15:30

博主，用不了啊，老出现Automation 错误。 文件处理器错误

xunys 发表于 2021-3-8 21:43:59

谢谢分享。
页: [1] 2
查看完整版本: 请问动态插入水流向箭头与曲线相切（平行）怎么实现呀