计算等级库的属性值
你好所以我用李的lisp计算att值，但问题是我有太多的属性块（用于标高、标记材质、标记门类型、窗类型等等）。从我的selectionset创建的表太大，有80%的无用信息，我想从1到2个块中提取信息。
我的问题是：有人可以修改它来计算指定块的属性吗？
例子：
1.选择块以计算其att值
2.继续selectionset并仅过滤这些选定的块，并计算其属性值
你使用哪种lisp？ 作为快速修改，在代码的第70行添加以下行：
(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '("A1" "A2"))) alist))
列出希望程序计数的属性标记。
Dipesh，我相信OP是指我的计数属性值程序。 嗯，这不是我想要的，但它确实起到了作用：
(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '("П1" "П2" "П3" "П4" "П5" "П6" "П7" "П8" "П9" "П10" "П11" "П12" "A1" "A2" "A3" "A4" "A5" "A6" "A7"))) alist))
如果我在输入中没有得到过长的字符串。
尝试：
(setq att-string (getstring T "\nType attribute name to count: "))
(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '("att-string"))) alist))
但它不起作用。
页:
[1]