[求助]：lisp如何装在线型？

ssh

如题！

lsjjm

参考这个程序:
(defun find-line-type (line-type line-type-collection / res)
  (setq line-type (strcase line-type))
  (vlax-for l-obj line-type-collection
    (if (= (strcase (vla-get-name l-obj)) line-type)
      (setq res l-obj)
    )
  )
  res
)
  
(defun load-line-types (line-type file-name / tmp res)
  (if (and (setq tmp (vlax-get-acad-object))
           (setq tmp (vla-get-activedocument tmp))
           (setq tmp (vla-get-linetypes tmp))
    )
    (if (setq res (find-line-type line-type tmp))
      res
      (progn
        (vla-load tmp line-type file-name)
        (if (vla-item tmp line-type)
          (vla-item tmp line-type)
           nil
        )
      )   
    )     
    nil
  )      
)

ssh

可不可以在使用layer命令时直接输入线型名称啊？
不去管是不是系统已经装在了
弱问题

xcajcj

最初由 ssh 发布
[B]如题！ [/B]

一个简单的实例，代码如下：

(setq save_expert (getvar "expert"));获取系统变量初始值
(setvar "expert" 3);设置系统变量
(command "-linetype" "l" "*.*" "acad.lin" "");加载线型文件"acad.lin"内的所有线型。
(setvar "expert" save_expert);恢复系统变量初始值

其中系统变量“EXPERT”用于控制是否显示某些特定的提示。
初始值： 0
0        显示所有提示信息。
1        抑制“准备重生成 -- 继续进行？”和“确实要关闭当前图层吗？”这类提示。
2        抑制上述提示以及“块已经存在。重新定义？”(BLOCK) 和“这个图形已经存在，是否覆盖？”(SAVE 或 WBLOCK)。
3        抑制上述提示以及使用 LINETYPE 命令时，要加载的线型已加载或要创建的线型已定义时系统所作的提示。
4        抑制上述提示以及使用 UCS 命令的“保存”选项和 VPORTS 命令的“保存”选项时，输入的名称已存在时系统所作的提示。
5        抑制上述提示以及使用 DIMSTYLE 命令的“保存”选项和 DIMOVERRIDE 命令时，输入的标注样式名已经存在时系统所作的提示。
当 EXPERT 抑制一个提示时，被抑制的提示会认为用户这时输入 y 确认提示。EXPERT 的设置会影响脚本、菜单宏、AutoLISP 和命令函数。