曾经想写的绘制箭头程序，现在很简单了

朽木大师

总体还不错

phoevana

前来学习

革天明

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

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

nadaloveluna

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

yaya-54

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

skg123

(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

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

hehaidizhi

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

hehaidizhi

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

再见熊猫衣服

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