[LC100]建筑设计 23:12:21
(= (cdr (assoc 8 (car (entsel "
请选择块自动识别: ")))) WINDOW)
当前选择的图块为window层,是这样写么?window要不要加""
[ZZXXQQ] 23:12:48
要加
[LC100]建筑设计 23:13:01
好像加了,也通不过
[LC100]建筑设计 23:13:49
这部分代码是这样写吧。
[LC100]建筑设计 23:20:56
(defun C:test (/ *APP *DOC EntNam NewNam el layer)
(setq EntNam (car (entsel "
请选择块: ")))
(setq layer (cdr (assoc 8 EntNam)));当前块图层名
(if (= layer "WINDOW")
(print "块在WINDOW")
(print "不在")
);if总
(princ)
)
这样通不过,不知道那里出了问题。
[gzxl] 23:23:20
少可个(entget)
[LC100]建筑设计 23:23:43
唔,我也刚看到。 |