如果线型存在

Happy Hobbit · 发表于 2022-7-5 18:34:19

我正在编写一个lisp，它调用来自Acadiso的自定义线型。林

线型在大多数用户计算机上不存在，但在某些计算机上存在。

我想在代码中输入如下内容：


(If (linetype "DASHED2.5" exists)
(progn
(command "._linetype" "_load" "DASHED2.5" "Acadiso.lin" ""); then
(command "-layer" "M" "BOX" "L" "DASHED2.5" "" "LW" "0.5" "" "C" "6" "" "" )
);end prong
(progn
((command "._linetype" "_load" "hidden2" "Acadiso.lin" ""); else
(command "-layer" "M" "BOX" "L" "hidden2" "" "LW" "0.5" "" "C" "6" "" "" )
);end progn
)
);end if

线型“DASHED2.5”优于标准线型“hidden2”

Lee Mac · 发表于 2022-7-5 18:41:39

请参阅我的Load Linetypes功能。

Happy Hobbit · 发表于 2022-7-5 18:44:14

你好，李

这需要添加很多代码

我的Lisp程序已经超过260行了，我希望能再短一点

另外，我不完全理解你的代码，因为它没有注释

Lee Mac · 发表于 2022-7-5 18:47:36

如果要测试激活图形中是否已定义线型，请使用：

copy

(if (tblsearch "ltype" "YourLinetypeHere")
   ...
)

“我的加载线型”功能包括两个选项，用于测试线型是否在*中定义。lin文件：LM:ltdefined-p函数将读取一个。具有给定文件名的lin文件，如果在文件中定义了具有提供名称的线型，则返回T。

或者，表达式：

copy

(vl-some
  '(lambda ( lin )
       (vl-catch-all-apply 'vla-load (list ltc typ lin))
       (tblsearch "ltype" typ)
   )
   lst
)

将在所有的集合上迭代。在所有支持文件搜索路径（已分配给变量“lst”）中找到lin文件，并将尝试从每个文件加载目标线型，如果成功，则停止。

Happy Hobbit · 发表于 2022-7-5 18:49:28

Sooo，使用第一个选项如下：

copy

(defun c:test2 ()
(setvar "Expert" 3)
(if (tblsearch "ltype" "noddy")
(progn
        (command "._linetype" "_load" "Noddy" "Acadiso.lin" "")
        (command "-layer" "M" "Big-Ears" "L" "Noddy" "" "LW" "0.5" "" "C" "6" "" "" )
 (princ "\n Linetype Noddy Loaded")         
)
(progn
        (command "._linetype" "_load" "DASHED2.5" "Acadiso.lin" "")
        (command "-layer" "M" "Big-Ears" "L" "DASHED2.5" "" "LW" "0.5" "" "C" "6" "" "" )
 (princ "\n Linetype DASHED2.5 Loaded")
)
)
(setvar "Expert" 3)
 (princ)
)

这似乎奏效了！

我希望我能更好地理解第二种选择

附言

实际上，我没有一个叫做Noddy的线型，这是一种将if语句转到“else”的好方法

Lee Mac · 发表于 2022-7-5 18:53:13

请注意，表达式（tblsearch“ltype”“YourLinetypeHere”）将仅测试给定线型是否在活动图形中定义，而不会检查给定线型是否在中定义。lin文件（这似乎是您想要测试的，因为您随后将加载线型）。

Happy Hobbit · 发表于 2022-7-5 18:57:19

真奇怪，李

因为我只是在一个没有加载线型的图形中运行它&lisp加载了它。

Lee Mac · 发表于 2022-7-5 19:03:49

您的代码当前设置为加载任何一种情况下的线型-简单来说，您的代码表示：

copy

IF Noddy linetype is already defined
THEN:
   Load Noddy linetype from acadiso.lin
   Create Big-Ears layer and assign various properties
   Print message
ELSE:
   Load DASHED2.5 linetype from acadiso.lin
   Create Big-Ears layer and assign various properties
   Print message

Happy Hobbit · 发表于 2022-7-5 19:07:10

我懂了。。。

像这样的事情能解决吗？

copy


(vl-some
  '(lambda ( lin )
       (vl-catch-all-apply 'vla-load (list ltc typ lin))
       (tblsearch "DASHED2.5" typ)
   )
   lst
)
(if (/= lst t)
 (progn
    (vl-some
   '(lambda ( lin )
        (vl-catch-all-apply 'vla-load (list ltc typ lin))
        (tblsearch "hidden2" typ)
    )
    lst
   )
      ;My create layer macro here for DASHED2.5
   )
    ;My create layer macro here for hidden2
)
(vl-load-com)

BIGAL · 发表于 2022-7-5 19:08:59

你需要回到IF工作原理的基础

如果事情是真的
做这行
如果不这样做

你对诺迪的寻找将返回False，因此运行IF的第二部分“else”

copy


(if (= (tblsearch "ltype" "noddy")T)
(PRINC "LINE 1")
(PRINC "LINE 2")
)

[编程交流] 如果线型存在

发表回复

精选推荐