CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 2427|回复: 3

[求助] 用lsp如何加载线型

[复制链接]
发表于 2010-12-25 17:16 | 显示全部楼层 |阅读模式
请问:我想将ACADISO.LIN有的一些线型用lsp加载到图形中,而不需要手动一个一个的去找加入?6 p( I1 o2 T0 B2 z' |; ~! f
例如下面
1 e' c1 I) O- w& l# L
8 U$ B& X5 r0 N2 f* m( K  u" G(defun c:jrxx()$ c! A. {$ z2 _8 b" O
(command "-linetype" "L" wq1021 "" "") 9 c4 L: c+ M/ \, o; j' x8 q
(command "-linetype" "L" wq1022 "" "") + v5 x5 J3 f. |( }0 `$ @
(command "-linetype" "L" 443 "" “”)
; `1 c4 o5 o  D+ G0 _) U1 s (command "-linetype" "L" 443a "" “”)
! `0 [, m, z' U* m; i0 S )
+ B! ~6 i4 `6 j8 V5 b6 ?" X/ `& @5 t* W, H9 @5 s
却显示出错:  j: A2 ?+ A/ \$ g8 P
命令: jrxx9 m& K7 J3 Q& q1 N
-linetype
; G2 i2 U- ~/ o- c  ^& q当前线型: "ByLayer"* p$ j" G6 l$ r% D& T5 c) M
输入选项 [?/创建(C)/加载(L)/设置(S)]: L" q: G- F) E1 \
输入要加载的线型:1 _% q# U0 F) ^7 Z
输入选项 [?/创建(C)/加载(L)/设置(S)]:
# M- H9 F+ W+ u6 `& m8 D命令: JRXX 未知命令“JRXX”。按 F1 查看帮助。) v" z+ F0 g6 Y( E
命令: -linetype
. K4 F; z0 {# Q* m8 K当前线型: "ByLayer"
% l* L/ O; F' @# J* P+ W& w3 X输入选项 [?/创建(C)/加载(L)/设置(S)]: L' I" S$ t9 l- R% C
输入要加载的线型:
3 m2 Q4 z+ j2 E( x输入选项 [?/创建(C)/加载(L)/设置(S)]:; {* f+ U, u! k& F+ l1 C, y1 @+ ~
命令: JRXX 未知命令“JRXX”。按 F1 查看帮助。
/ ^! ^# f5 ~9 C2 e命令: -linetype
6 w6 o  V6 J4 Q5 m" r8 p* n当前线型: "ByLayer"
* S2 m6 P. c5 q" x" ~! `8 J输入选项 [?/创建(C)/加载(L)/设置(S)]: L# m5 y* i- Y1 Y5 O
输入要加载的线型: 443 输入要查找的线型文件名 <acadiso.lin>:
. K* x3 F* f4 K( i) H线型“443”已加载。是否重载? <Y>' ?$ m0 [8 V+ G% H1 ?; v
输入选项 [?/创建(C)/加载(L)/设置(S)]: -linetype
1 O3 e' @5 `5 c; B- V无效的选项关键字。2 E4 v# f5 g7 K+ J8 ?: X
; 错误: 函数被取消: B3 K. [$ n& X) ^9 ~5 W2 k6 j
输入选项 [?/创建(C)/加载(L)/设置(S)]:
' [5 c; X. N0 m4 L& ^+ ~5 A: i命令:
7 d1 m/ U4 H. P- b: B& |4 J3 {* o3 `; w9 U
下面是在lin文件里的语句0 P$ i5 t9 K& Z
*443,------@-------@--------@---------@----" f, ]+ E: W# c1 y
A,5,[11,AAA.SHX,S=0.83],5. I, r7 p; f! x% v. M( S' @. h
*443a,------@-------@--------@---------@----: f* t+ l6 V) h& O8 q4 B8 F
A,5,[11,AAA.SHX,y=-0.5,S=0.83],53 U: U# ^  k  J2 _! b8 e
*WQ1021,围墙
( B8 j# ]" T5 sA,10,[q,wq.shx,s=0.83],05 ^& @$ B0 k# Y2 ~  d8 R
*WQ1022,围墙(反向)
" z5 a1 \6 z8 T- kA,10,[q,wq.shx,y=-0.5,s=0.83],0
# K. c- y: A; @- y& B* j# |% X6 P& }. O3 v' \% L/ D7 R2 C  l/ `
有的可以加载,有的又不能加载,不知是为什么?9 X' Y" w9 v) T4 O4 H2 _; G
像一次同时加载几个线型的,lsp该如何编写?! ^8 k- ?! L& \, v3 d7 H8 X
请高手给予指教。
, M/ ?* j* q' {7 I5 l% h" p谢谢7 t% b0 [$ x% ]+ h4 n! A) n, H
祝圣诞快乐!
发表于 2010-12-25 18:17 | 显示全部楼层
(defun C:XXJZ()(command "-linetype" "L" "ACAD_ISO05W100" "acadiso.lin" ""
* A& u6 n4 B8 T. h# B9 P                        "-linetype" "L" "DASHED"         "acadiso.lin" ""
# w% W3 }- u/ N8 F% C. r                        "-linetype" "L" "CENTER"         "acadiso.lin" ""))
+ N9 P% v& \$ w* O" k0 C9 J5 }# E
这是我现在用的
 楼主| 发表于 2010-12-25 19:26 | 显示全部楼层

回复 #2 chenlei200332 的帖子

谢谢chenlei200332 9 n5 {8 C+ b, z- Q3 A, [; q
试了试,可以加载了。1 [4 z  f. h. L+ g  i5 E1 s& h
谢谢
9 Q- M+ q% s9 }; [. p
4 z/ R# G2 h7 X* u3 Z( f* ~/ O[ 本帖最后由 461045462 于 2010-12-25 19:33 编辑 ]
 楼主| 发表于 2010-12-25 19:42 | 显示全部楼层
请问:运行试了一下后,发现,如果线型已经有加载了的,再运行加载就会提示:( \6 p+ O& x# V; h7 D6 i. `
“无效的选项关键字。
( \. K2 @, V7 v. u; 错误: 函数被取消
% O; d, l/ G$ w# E# ~/ O+ R/ ?输入选项 [?/创建(C)/加载(L)/设置(S)]:” 字样% o: w1 U! Q# u* Q. ?4 o
     要怎样才能判别有了的不加载,没有的就加载呢?
5 x& K3 X2 r9 C谢谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-5-6 17:37

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表