社区 › AutoLISP/Visual LISP 编程技术 › 曾经想写的绘制箭头程序，现在很简单了

朽木大师 发表于 2013-4-19 20:54:48

总体还不错

phoevana 发表于 2013-4-19 21:44:02

前来学习

革天明 发表于 2013-4-22 09:43:24

lzg8877 发表于 2013-4-13 21:52 static/image/common/back.gif
求一个动态　箭头的代码　　求帮忙写个代码　只要箭头　不用标注　箭头变化值大概如图

这段真的没时间，给你个建议，夹角的控制就按距离和屏幕对角线距离的比例来定吧，

nadaloveluna 发表于 2013-4-22 16:17:28

嗯，不过这样的箭头不是完整的多段线貌似，还有改进空间。支持。

yaya-54 发表于 2013-5-10 11:13:44

谢谢
vlisp2012的整体的好用，如何箭头可以动态调整大小就更好了。：）

skg123 发表于 2015-9-28 16:54:14

(defun c:T6()
   (setq p0(getpoint "\n请指定箭头：")
         p1(getpoint p0 "\n请指定箭尾："))
      (setq oldosmode (getvar "osmode"))
   (setvar "osmode" 0)
   (setq
         len (* 0.5 (distance p1 p0))
         ang (angle p0 p1)
         ang1 (+ ANG (* 0.5 PI))
         ang2 (- ANG (* 0.5 PI))
         P11 (polar p0 ang (* 0.8 len));夹角大小调整此处0.2的值
         P12 (polar p11 ang1 (* 0.25 len));夹角大小调整此处0.2的值
         P13 (polar p11 ang2 (* 0.25 len));夹角大小调整此处0.2的值
   )
(command "Pline" p12 p0 P13 p0 p1 "");箭头的宽度是直线部分的3倍
   (setvar "osmode" oldosmode)
(PRINC)
)

binheshiji 发表于 2015-9-29 10:57:17

谢谢楼主在下刚开始学习lsp刚试手了你的程序   成功

hehaidizhi 发表于 2016-5-13 09:48:53

要是再多个选项，可以选择是否把长度标识出来就好了

hehaidizhi 发表于 2016-5-13 10:09:11

还有就是能不能画等宽度的线啊，长度5和50画出来的宽度不一致，不好用啊

再见熊猫衣服 发表于 2019-12-19 13:56:33

本帖最后由 再见熊猫衣服 于 2019-12-19 13:58 编辑


革老师还在吗？
请问这种PL多段线类型的箭头插件，能搞定吗？
多段线绘制箭头，方便，而且是一个整体。
但是有个问题，就是操作比较麻烦。
为什么说他麻烦，因为它需要9步操作，1，命令PL启动程序，2，鼠标点击各个点位绘制箭头直线部分，3，输入W指定宽度，4，输入起点宽度的数值，5，按确定键，6输入终点宽度的数值，7，按确定键，8，鼠标指定箭头的终点，9按ESC退出绘制。
我想你能否完全模仿PL多段线画箭头的原理，简化这个操作工程呢。
前面的操作还是一样的，只是最后画箭头的时候，只需要输入起点宽度的数值，即可完成这部分操作。
过程如下：
1，快捷键命令JT启动程序。2，鼠标点击各个点位，确定箭头线段部分。3，当想要出现箭头的时候，输入箭头的起点宽度的数值(例如500)。4，鼠标指定箭头的终点。完成操作。

查看完整版本: 曾经想写的绘制箭头程序，现在很简单了