lisp线型center未定义_自动调整线型比例 【有源码】 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

声明：这段源码来自明经，最初的作者已无从考证，应该是个台湾同胞吧，若见此帖，先谢过！

作图时，经常会使用到很多不同长度的非连续线，比如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