检查是否存在特定的MLEADERSTY

TheyCallMeJohn · 发表于 2022-7-6 09:59:04

好的，我必须经常清理我们的图形，我们有一些很少使用的多重引线样式。因此，我试图创建一个带有“if”语句的lisp，检查mleaderstyle是否存在。如果它存在，它将继续绘制lisp，但如果它不存在，它将插入一个具有样式的块，然后继续其余的操作。

有谁能帮我举一个if语句的例子来解决这个问题吗？

我已经搜索了很长时间，但几乎没有成功。

谢谢你，

J

Lee Mac · 发表于 2022-7-6 11:14:11

可能是这样的：

copy


(defun LM:MLeaderStylep ( style )  
 (and
   (setq dict (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))
   (dictsearch (cdr (assoc -1 dict)) style)
 )
)

如果style参数是MLeaderStyle，则返回T，否则返回nil。

copy

(LM:MLeaderStylep "Standard")

[编程交流] 检查是否存在特定的MLEADERSTY

发表回复

精选推荐