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

革天明

pxt2001 发表于 2012-3-8 21:00
请看以下动画，箭头变形了。

这种变形与程序无关，qleader本身的问题

功夫佬

这程序用来做螺丝的，个人认为，可以借鉴一下哈

T_T

Qleader 好用些，能用刷子刷它

T_T

线宽我大多可用图层和颜色控制，这个不成问题，觉得能在Qleader基础上加强它的实用性可能强点，在别人的基础上超越别人

kwok

请帮忙一下能改成下面这样的图的箭头吗,喜欢楼主这样的箭头效果,但想要单线,不要空心的.它是由一条多义线画成的.

kwok

kwok 发表于 2012-5-12 22:26
请帮忙一下能改成下面这样的图的箭头吗,喜欢楼主这样的箭头效果,但想要单线,不要空心的.它是由一条多义线 ...

图来了,谢谢.

vlisp2012

(defun c:jt ();;;绘制出的箭头是整体的。
  (setq sys (getvar "osmode"))
  (setvar "osmode" 0)
  (setq        p0   (getpoint "\n请输入基准点：")
        p1   (getpoint p0"\n请输入第二点：")
        l0   (distance p0 p1)
        ang  (angle p0 p1)
        l1   (* 0.18 l0);此系数可调，用于调整箭头区占整个箭头的长度，0.18是系数
        ang1 (* 0.08333333 pi);箭头的角度为30度
        p2   (polar p0 (+ ang (* 0.5 pi)) (* 0.35 (* l1 (tan ang1))));定义箭尾的宽度，0.35是系数
        p3   (polar p2 ang (- l0 l1))
        p4   (polar p3 (+ ang (* 0.5 pi)) (* l1 (tan ang1)))
  )
  (setq ss (ssadd))
  (command "pline" p0 p2 p3 p4 p1 "")
  (setq ss (ssadd (entlast) ss))
  (command "mirror" ss "" p0 p1 "N")
  (setq ss (ssadd (entlast) ss))
  (command "pedit" "m" ss "" "j" "" "")
  (setvar "osmode" sys)
  (prin1)
)
(princ "启动命令<JT>")

vlisp2012

(defun c:jts();;;绘制出的箭头是实心且整体的。
  (setq sys (getvar "osmode"))
  (setvar "osmode" 0)
   (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
   )
   (setq ss (ssadd))
   (command "pline" p0 "H" h h p2 "")
   (setq ss (ssadd (entlast) ss))
   (command "pline" p2 "H" (* h 3) 0 p1 "");箭头的宽度是直线部分的3倍
   (setq ss (ssadd (entlast) ss))
  (command "pedit" "m" ss "" "j" "" "")
  (setvar "osmode" sys)
   (prin1)
)
(princ "启动命令<JTS>")

kwok

vlisp2012 发表于 2012-5-14 22:02
(defun c:jts();;;绘制出的箭头是实心且整体的。
  (setq sys (getvar "osmode"))
  (setvar "osmode" 0 ...

谢谢,实心非常不错,我学习加了个循环使用.还给我加上了.
上面整体那个提示error: no function definition: TAN
好向角度出错.

革天明

kwok 发表于 2012-5-14 16:09
图来了,谢谢.

(defun c:jts ()
  (setq p1 (getpoint "\n请输入箭头的起点"))
  (setq p2 (getpoint p1 "\n请输入箭头的终点"))
  (setq os-mode (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq l0 (/ (distance p2 p1) 243.21))
  (setq ang (* (/ (angle p1 p2) (* 1 pi)) 180))
  (setq p3 (polar p1 (/ pi 6.0) (* 11.96 l0)))
  (setq p4 (polar p1 0 (* 11.96 l0)))
  (setq p5 (polar p1 0 (* 191.42 l0)))
  (setq p6 (polar p5 (* pi 1.5) (* 29.9 l0)))
  (setq p7 (polar p6 (/ pi 6.0) (* 59.8 l0)))
  (setq p8 (polar p7 (/ (* 5 pi) 6.0) (* 59.8 l0)))
  (setq p9 (polar p8 (* pi 1.5) (* 23.92 l0)))
  (command "pline" p3 "A" "CE" p1 p4 "L" p5 p6 p7 p8 p9 "")
  (command "rotate" (entlast) "" p1 ang)
  (setvar "osmode" os-mode)
  (setvar "cmdecho" 1)
)