|
|

楼主 |
发表于 2009-4-9 19:02:46
|
显示全部楼层
来自: 中国山西阳泉
*gs,给水 ---J----J----J----J----J---' w6 X9 {" E$ v% l/ [
A,25,-2.5,["J",STANDARD,S=3,R=0.0,X=-1.25,Y=-1.5],-2.5
! V+ J+ o* \8 Z2 w* ^5 S, ^* O-->* :开始一个新线型; ~$ `) Y A# k, h4 e2 p ~
--> gs :线型名称为 gs+ a) S: }- e% V: T t
-->给水 ---J----J----J----J----J--- :在加载线型时看到的效果,可以随意写# C3 N, l: \0 Z' K
-->A :固定格式,以后的版本或许会有更多
: S' k9 r6 p8 o* s1 S3 |( H( J-->25 :落笔画25长的线
6 L+ j$ A3 y5 {2 q( a* S, T# Q-->-2.5 抬笔画2.5长的空白,负号表示抬笔,也就是空白一部分位移
m% o# T0 \- }-->[]内的部分为一个字"J",standard ;字型 s:字的比例 R:忘了是什么 x=-1.25,Y=-1.5 字往左下角偏移
- m+ |& x2 v% H- L- |2 m$ r-->2.5 :抬笔画2.5长的线$ L) }. c. X# d% @
(defun sws_loadlt (wz_lt / flag)
+ ~) ^* r% V, `, z0 J (if (not (TBLSEARCH "Ltype" wz_lt))
3 A7 H- h$ P/ p (command "_.linetype" "L" wz_lt "sws_linetype" "")
: }; }6 P# J& E! R& k8 j U ): i/ z6 t6 V; @' z9 x
(print (strcat "成功加载线型:" wz_lt))
. z) i( G: [8 H7 q, W (princ)
2 K# W8 ^" j+ C7 S8 ]8 G; m)
$ V( ~9 n4 g5 f1 Q# M上面是一个根据需要加载线型的子程序 5 s7 ^6 K4 t0 Y! B# V
wz_lt :线型名称,如 dot、wp_g
- L; H) k, O& \. i" T2 A" vsws_linetype :自定义的线型文件名称
2 O. E& W# [1 L4 ^" y调用示例:/ i. C5 n2 U7 y' y
(sws_loadlt "wp_g") ;;加载 wp_g 线型* `/ H- Z: d2 `% I* S( t5 p# b% V8 d
(sws_loadlt "wp_p") ;;加载 wp_p 线型
- b6 f8 \4 H# |7 a- L(sws_loadlt "*") ;;加载自定义线型文件里的所有线型 |
评分
-
查看全部评分
|