我的第一步：选择多段
大家好，我是这个论坛和AutoLISP编程的新手。我学习了一个教程，现在我正试着自己做一些事情。
我有一个二维图形，其中一个正方形是用多段线绘制的，现在我想创建一个例程，它要求我选择一条多段线，并简单地告诉我我选择了正确的多段线。
这是我的密码
我选择了多段线，但消息“polyline selected！”没有出现，怎么了？ 检查一下；
(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)
)
欢迎来到CADTutor
塔瓦特 谢谢，它说我已经选择了LWPolyline，所以我想我必须检查LWPolyline而不是POLYLINE，因为我正在处理二维图形。
是尝试选择任何其他实体，因此它将为您提供所选实体的名称。。。。
当做
塔瓦特 欢迎来到论坛！
只是与代码Alhazred略有不同的测试表达式
2
页:
[1]