修改箭头大小

在CAD绘图中，常困惑与图中箭头大小不统一，造成图纸不美观，使用这个命令这个问题就解决了。只需在CAD中加载即可

不知道楼主这个是怎么使用的,要是能贴个图就很好了.我一般是把箭头设置成块,然后按统一的比例插入来解决这大小不一的问题.

(defun c:ach()
  (setvar "CMDECHO" 0)
  (setq ss (ssget (list (cons 0 "solid"))))
  (setq n (sslength ss))
  (setq siz (getreal "\nInput arrow size:"))
  (setq i 0)
    (while (<= i (- n 1))
          (setq si (ssname ss i))  
          (setq sj (entget (ssname ss i)))   
         
          (setq x10 (cadr (assoc 10  sj)))
          (setq y10 (caddr (assoc 10 sj)))
         
          (setq x11 (cadr (assoc 11  sj)))
          (setq y11 (caddr (assoc 11 sj)))
         
          (setq x12 (cadr (assoc 12  sj)))
          (setq y12 (caddr (assoc 12 sj)))

          (setq xzj (+ x10 (/ (- x11 x10) 2.0)))
          (setq yzj (+ y10 (/ (- y11 y10) 2.0)))
           
          (setq arl (sqrt (+ (* (- xzj x12) (- xzj x12)) (* (- yzj y12) (- yzj y12)))))
         
         
          (setq sc (/ siz arl))

          (setq base (cdr (assoc 13 sj )))

          (command "scale" si "" base sc)
          (setq x10  nil y10 nil x11 nil y11 nil x12 nil y12 nil base nil arl nil)
          (setq i (+ 1 i))
     )
(setq ss nil j nil n nil ddd1 nil ddd2 nil sj nil si nil)
(command "redraw")
(princ)
)

财务管理，会计服务，会计做帐

你好！我司是一家税务代理公司，现代理多家包税公司剩余发票。如 （增值税.海关缴款书.国税销售.地税.国际海运.广告.服务行业）等发票，可向外代开，验证后付款，点数优惠。欢迎来电洽谈！

联系人：刘先生         

联系电话：13917981443    邮箱:liusz_880@163.com

加载后，输入ach命令，选择要变的箭头，回车即可