用lsp如何加载线型
请问：我想将ACADISO.LIN有的一些线型用lsp加载到图形中，而不需要手动一个一个的去找加入？例如下面
(defun c:jrxx()
(command "-linetype" "L" wq1021 "" "")
(command "-linetype" "L" wq1022 "" "")
(command "-linetype" "L" 443 "" “”)
(command "-linetype" "L" 443a "" “”)
)
却显示出错：
命令: jrxx
-linetype
当前线型: "ByLayer"
输入选项 [?/创建(C)/加载(L)/设置(S)]: L
输入要加载的线型:
输入选项 [?/创建(C)/加载(L)/设置(S)]:
命令: JRXX 未知命令“JRXX”。按 F1 查看帮助。
命令: -linetype
当前线型: "ByLayer"
输入选项 [?/创建(C)/加载(L)/设置(S)]: L
输入要加载的线型:
输入选项 [?/创建(C)/加载(L)/设置(S)]:
命令: JRXX 未知命令“JRXX”。按 F1 查看帮助。
命令: -linetype
当前线型: "ByLayer"
输入选项 [?/创建(C)/加载(L)/设置(S)]: L
输入要加载的线型: 443 输入要查找的线型文件名 <acadiso.lin>:
线型“443”已加载。是否重载? <Y>
输入选项 [?/创建(C)/加载(L)/设置(S)]: -linetype
无效的选项关键字。
; 错误: 函数被取消
输入选项 [?/创建(C)/加载(L)/设置(S)]:
命令:
下面是在lin文件里的语句
*443,------@-------@--------@---------@----
A,5,,5
*443a,------@-------@--------@---------@----
A,5,,5
*WQ1021,围墙
A,10,,0
*WQ1022,围墙(反向)
A,10,,0
有的可以加载，有的又不能加载，不知是为什么？
像一次同时加载几个线型的，lsp该如何编写？
请高手给予指教。
谢谢
祝圣诞快乐！ (defun C:XXJZ()(command "-linetype" "L" "ACAD_ISO05W100" "acadiso.lin" ""
"-linetype" "L" "DASHED" "acadiso.lin" ""
"-linetype" "L" "CENTER" "acadiso.lin" ""))
这是我现在用的
回复 #2 chenlei200332 的帖子
谢谢chenlei200332试了试，可以加载了。
谢谢
[ 本帖最后由 461045462 于 2010-12-25 19:33 编辑 ] 请问：运行试了一下后，发现，如果线型已经有加载了的，再运行加载就会提示：
“无效的选项关键字。
; 错误: 函数被取消
输入选项 [?/创建(C)/加载(L)/设置(S)]:” 字样
要怎样才能判别有了的不加载，没有的就加载呢？
谢谢
页:
[1]