声明:这段源码来自明经,最初的作者已无从考证,应该是个台湾同胞吧,若见此帖,先谢过!
作图时,经常会使用到很多不同长度的非连续线,比如center hidden。而LTS线型比例是固定的,因为长短的不同,照顾不了所有的线段都能如实显示(很多短线因此显示为连续线)
问题来了,如何实现框选所有需要改变线型比例的线段,使之根据自身长短,自动调整到合适的比例呢?
下面便是本文字首的源码:目前只能实现所有线段变为合适比例的hidden线,不能同时针对多线型。且目前看来,自动调整的效果还待完善。开此贴,看需要的人多不多,若多,希望高手改善之,希望在将来,此帖还能帮助更多的人。
(defun c:df () ;自動變換成適當比例的虛線
(ltchange "dashed" 3 "bylayer")
(princ)
)
(defun ltchange (type1 scale color / oce lin n nam tab
pt1 pt2 x1 x2 y1 y2 len leg sca
otyp ocol osca col typ lts rad
) ;自動變換成適當比例的中心線
(setq oce (getvar "cmdecho")
lts (getvar "ltscale")
) ;_ end of setq
(setvar "cmdecho" 0)
(setq