检查实体类型

harilalmn · 发表于 2022-7-6 09:51:49

大家好，
我只是在学习AutoLisp。所以我知道一点。

我想写一个程序，从两条线的交点（如果没有相交，当它们被扩展时）画一条线。

考虑使用Inters函数，效果很好。但现在我想检查所选实体是否为直线。
怎么做？
我写了这样的东西，但它失败了；

copy


(defun c:Intr()
   (Setq Line1 (car (entsel "\nSelect First Line:")))
   (CheckObject Line1)
   BLAH BLAH BLAH.....
)
(defun CheckObject(Enty)
 (Setq ObjType(assoc 0 (entget (Enty))))
 (if
   (/= ObjType "LINE")
   (
   (alert "No Lines Selected... Ending")
     (exit)
   )
 )
)

请帮忙。。。

BIGAL · 发表于 2022-7-6 10:04:52

您还需要检查它是否是一条多段线，并可能将其分解，以便仍然可以对其进行插入。

明天将在工作中发布此代码。

Tharwat · 发表于 2022-7-6 10:11:31

看看这个。。。。。。

copy


(Setq Line1 (car (entsel "\nSelect First Line:")))
(if (eq (cdr(assoc 0 (entget Line1)))"LINE")
 (alert "That's Right")
 (alert "I am sorry, That's wrong")
 )

塔瓦特

harilalmn · 发表于 2022-7-6 10:17:12

哇！成功了。。。这就是我想要的。
你能告诉我上面的代码哪里出错了吗？

此外，如果用户没有选择一条线，我如何重复该步骤，直到他选择一条线？

MSasu · 发表于 2022-7-6 10:26:26

ENTGET将返回一个点对列表；要获得实体的类型，只需使用第二项——在摘录代码中，您试图将列表（虚线对）与字符串进行比较；此外，实体名称不应括在括号中。请在下面找到您更正的代码：

copy

(defun CheckObject(Enty)
 (Setq ObjType [color=red](cdr[/color] (assoc 0 (entget Enty))[color=red])[/color])[color=red] ;(Enty)))))[/color]
 (if
   (/= ObjType "LINE")
   (
   (alert "No Lines Selected... Ending")
     (exit)
   )
 )
)

当做
米尔恰

harilalmn · 发表于 2022-7-6 10:34:59

哦我得到了它。。谢谢。。。！！！

Tharwat · 发表于 2022-7-6 10:41:30

这将强制用户只选择一行。。。。

copy


(while
   (not
       (and (Setq Line1 (car (entsel "\nSelect First Line:")))
            (eq (cdr (assoc 0 (entget Line1)))"LINE")
      ))
 (prompt "\n Please select Line onle !!!")
 )

harilalmn · 发表于 2022-7-6 10:44:42

谢谢tharwat313。。。。
隐马尔可夫模型。。。这就是为什么我最喜欢这个论坛。。。总是有人在短时间内帮助我。

Tharwat · 发表于 2022-7-6 10:58:19

随时欢迎你。

当做

塔瓦特

[编程交流] 检查实体类型

发表回复

精选推荐