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

革天明

nzl1116 发表于 2012-3-3 08:33
绘制箭头直接用多段线命令 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>")

pxt2001

革天明 发表于 2012-3-1 13:12
我再学习一下，等解决了使用qleader时再续此贴

期待“使用qleader”的箭头。

革天明

pxt2001 发表于 2012-3-3 14:48
期待“使用qleader”的箭头。

qleader的箭头有什么好用的地方吗？如果把第二个程序中的箭头中直线的宽度定小一些看起来和这个引线也差不多了，我很少用qleader，这种引线有什么好外吗？

nzl1116

我不知道什么程序还能比pline命令更简单快速

革天明

nzl1116 发表于 2012-3-3 19:12
我不知道什么程序还能比pline命令更简单快速

因为再牛逼的程序都不能满足所有的的需求，所以人们才自己写软件。我写这个小程序的目的很简单，我需要固定形状的箭头，用块的画还没有我个程序简单，这就是需求，我不在乎是pline还是line还是qleader。正是CAD不能满足我们的需求，我们才不断开发小程序，对吗？

江湖远人

我以前绘箭头都是用PL命令，这个还是值得学习的

zdqwy19

条条大路通                                          

pxt2001

请看以下动画，箭头变形了。

smartstar

学习使人进步。