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

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
共享下

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

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明经币

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

谢谢分享。

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

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

本帖子中包含更多资源

本帖子中包含更多资源