我的第一步：选择多段

Alhazred · 发表于 2022-7-6 10:45:05

大家好，我是这个论坛和AutoLISP编程的新手。
我学习了一个教程，现在我正试着自己做一些事情。

我有一个二维图形，其中一个正方形是用多段线绘制的，现在我想创建一个例程，它要求我选择一条多段线，并简单地告诉我我选择了正确的多段线。
这是我的密码
我选择了多段线，但消息“polyline selected！”没有出现，怎么了？

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

检查一下；

copy


(defun c:polysel (/ ent_name element)
 (setq ent_name (car(entsel "\n Select a polyline:")))
 (setq element (entget ent_name))
 (if (= (cdr(assoc 0 element)) "POLYLINE")
   (alert " Your have selected POLYLINEs.")
   (alert (strcat "Your Selection is .." " "(cdr (assoc 0 element))"."))
 )
 (princ)
)