如何判断是否存在一个指定的线型？（已解决）

xyp1964

如何用程序判断是否存在一个指定的线型？
比如“center”线型，如果存在就设成当前线型，如果不存在就加载线型并设成当前线型。
如何修改以下程序：
[php]
;;;jzxx 加载线型
;;; 程序搜寻线型ltname，如果没有找到，则会由acadiso.lin 文件添加
;;;Example: (jzxx"车库1")
(defun jzxx (ltname)
  (setq found :vlax-false)
  (setq LinetypeSel (vla-get-Linetypes (vlax-get-acad-object)))
  (VLAX-FOR entry LinetypeSel
    (if        (= (vla-get-Name entry) ltname)
      (setq found :vlax-true)
    )
  )
  (if (= found :vlax-false)
    (vla-load LinetypeSel ltname "acadiso.lin")
  )
  (princ)
)
[/php]

eachy

命令: (tblsearch "ltype" "continuous")
((0 . "LTYPE") (2 . "CONTINUOUS") (70 . 0) (3 . "Solid line") (72 . 65) (73 .
0) (40 . 0.0))

2. 
   
3. ;;;jzxx 加载线型
   
4. ;;; 程序搜寻线型ltname，如果没有找到，则会由acadiso.lin 文件添加
   
5. ;;;Example: (jzxx"车库1")
   
6. (defun jzxx (ltname)
   
7.   (if (not (tblsearch "ltype" ltname))
   
8.     (vl-catch-all-apply
   
9.       'vla-load
   
10.       (list (vla-get-Linetypes
    
11.               (vla-get-activedocument (vlax-get-acad-object))
    
12.             )
    
13.             ltname
    
14.             "acadiso.lin"
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

<br /> ;;;jzxx 加载线型<br /> ;;; 程序搜寻线型ltname，如果没有找到，则会由acadiso.lin 文件添加<br /> ;;;Example: (jzxx"车库1")<br /> (defun jzxx (ltname)<br />   (if (not (tblsearch "ltype" ltname))<br />     (vl-catch-all-apply<br />       'vla-load<br />       (list (vla-get-Linetypes<br />               (vla-get-activedocument (vlax-get-acad-object))<br />             )<br />             ltname<br />             "acadiso.lin"<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xyp1964

多谢！
再加上(command"-linetype""s" ltname "")就达到目的了。

eachy

最初由 xyp1964 发布
[B]多谢！
再加上(command"-linetype""s" ltname "")就达到目的了。 [/B]

2. 
   
3. ;;;jzxx 加载线型
   
4. ;;; 程序搜寻线型ltname，如果没有找到，则会由acadiso.lin 文件添加
   
5. ;;;Example: (jzxx"车库1")
   
6. (defun jzxx (ltname)
   
7.   (if (not (tblsearch "ltype" ltname))
   
8.     (if        (not
   
9.           (vl-catch-all-error-p
   
10.             (vl-catch-all-apply
    
11.               'vla-load
    
12.               (list (vlax-get-property
    
13.                       (vlax-get-property
    
14.                         (vlax-get-acad-object)
    
15.                         'activedocument
    
16.                       )
    
17.                       'Linetypes
    
18.                     )
    
19.                     ltname
    
20.                     "acadiso.lin"
    
21.               )
    
22.             )
    
23.           )
    
24.         )
    
25.       (setvar "celtype" ltname)
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

<br /> ;;;jzxx 加载线型<br /> ;;; 程序搜寻线型ltname，如果没有找到，则会由acadiso.lin 文件添加<br /> ;;;Example: (jzxx"车库1")<br /> (defun jzxx (ltname)<br />   (if (not (tblsearch "ltype" ltname))<br />     (if        (not<br />           (vl-catch-all-error-p<br />             (vl-catch-all-apply<br />               'vla-load<br />               (list (vlax-get-property<br />                       (vlax-get-property<br />                         (vlax-get-acad-object)<br />                         'activedocument<br />                       )<br />                       'Linetypes<br />                     )<br />                     ltname<br />                     "acadiso.lin"<br />               )<br />             )<br />           )<br />         )<br />       (setvar "celtype" ltname)<br />     )<br />   )<br />   (princ)<br /> )

qjcpj

各位版主，除用上述vl类型函数及使用诸如(command "-Linetype" "Load" Layer_Ltype "" "")外，在R14中还有其它方法吗？

ll_j

其实如果只由当前默认的.lin文件加载，可以不必判断，只要使用：
(connand "linetype" "set" "center" "")
即可将当前线形设为“center”，不必管线形是否存在。

fools

楼上的方法建议配合系统变量expert的使用
expert值为3
3 禁止显示上述提示，以及要加载的线型已加载或要创建的线型已定义时 LINETYPE 命令所给出的提示。

xyp1964

当前默认的.lin文件是“acad.lin”还是“acadiso.lin”？由什么参数控制？

ll_j

线形样板文件可能是跟随图形模板加载的，在不指定图形模板时，acad好像是使用acadiso.dwt，这里的设置都是使用acadiso前缀的（我也是自琢磨的，没有理论根据）。
正如 fools 所说的，将变量 expert 设为3以后，就不必管替换提示，使用：
(command "linetype" "load" "center" "acad.lin" "set" "center" "")
就可以使用不同的线形文字加载并设置了。

xyp1964

根据帮助文件：“如果 EXPERT 禁止显示一个提示，相应操作会认为用户已输入 y 确认提示。EXPERT 的设置会影响脚本、菜单宏、AutoLISP 及其命令函数。”这样就会对其他程序产生影响，程序结束前有必要恢复原有 EXPERT 的值。