nzl1116 发表于 2012-3-3 08:33 static/image/common/back.gif
绘制箭头直接用多段线命令 pline 不就得了
现在这两种对我来说都不难，以前用过贼人工具箱里的绘制箭头，他用的就是pline
(defun c:jts()
(setq p0(getpoint "\n请输入基准点：")
p1(getpoint p0 "\n请输入第二点：")
l0(distance p1 p0)
ang(angle p0 p1)
p2(polar p0 ang (* 0.75 l0));箭头长度占总长的0.25
h(* l0 0.02);直线的宽度占总长的0.02
)
(command "pline" p0 "H" h h p2 "")
(command "pline" p2 "H" (* h 3) 0 p1 "");箭头的宽度是直线部分的3倍
)
(princ "启动命令<JTS>")
革天明 发表于 2012-3-1 13:12 static/image/common/back.gif
我再学习一下，等解决了使用qleader时再续此贴
期待“使用qleader”的箭头。
pxt2001 发表于 2012-3-3 14:48 static/image/common/back.gif
期待“使用qleader”的箭头。
qleader的箭头有什么好用的地方吗？如果把第二个程序中的箭头中直线的宽度定小一些看起来和这个引线也差不多了，我很少用qleader，这种引线有什么好外吗？
我不知道什么程序还能比pline命令更简单快速
nzl1116 发表于 2012-3-3 19:12 static/image/common/back.gif
我不知道什么程序还能比pline命令更简单快速
因为再牛逼的程序都不能满足所有的的需求，所以人们才自己写软件。我写这个小程序的目的很简单，我需要固定形状的箭头，用块的画还没有我个程序简单，这就是需求，我不在乎是pline还是line还是qleader。正是CAD不能满足我们的需求，我们才不断开发小程序，对吗？
我以前绘箭头都是用PL命令，这个还是值得学习的
条条大路通
本帖最后由 pxt2001 于 2012-3-8 21:01 编辑
请看以下动画，箭头变形了。
学习使人进步。