fhxgxcmlwxp 发表于 2009-9-11 16:47:19

修改箭头大小

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

wj768182 发表于 2009-9-13 14:07:28

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

小鱼儿 发表于 2009-9-28 08:23:03

(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 10sj)))
          (setq y10 (caddr (assoc 10 sj)))
         
          (setq x11 (cadr (assoc 11sj)))
          (setq y11 (caddr (assoc 11 sj)))
         
          (setq x12 (cadr (assoc 12sj)))
          (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 x10nil 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)
)

俊叔沛 发表于 2009-12-22 23:09:04

财务管理，会计服务，会计做帐你好！我司是一家税务代理公司，现代理多家包税公司剩余发票。如 （增值税.海关缴款书.国税销售.地税.国际海运.广告.服务行业）等发票，可向外代开，验证后付款，点数优惠。欢迎来电洽谈！联系人：刘先生          联系电话：13917981443    邮箱:liusz_880@163.com

fhxgxcmlwxp 发表于 2010-4-20 17:00:25

加载后，输入ach命令，选择要变的箭头，回车即可
页: [1]
查看完整版本: 修改箭头大小