计算等级库的属性值

Grrr · 发表于 2022-7-5 18:18:16

你好
所以我用李的lisp计算att值，但问题是我有太多的属性块（用于标高、标记材质、标记门类型、窗类型等等）。从我的selectionset创建的表太大，有80%的无用信息，我想从1到2个块中提取信息。

我的问题是：有人可以修改它来计算指定块的属性吗？
例子：
1.选择块以计算其att值
2.继续selectionset并仅过滤这些选定的块，并计算其属性值

Dipesh Kalasari · 发表于 2022-7-5 18:52:42

你使用哪种lisp？

Lee Mac · 发表于 2022-7-5 19:14:11

作为快速修改，在代码的第70行添加以下行：

copy

(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '([highlight]"A1" "A2"[/highlight]))) alist))

列出希望程序计数的属性标记。

Dipesh，我相信OP是指我的计数属性值程序。

Grrr · 发表于 2022-7-5 19:25:31

嗯，这不是我想要的，但它确实起到了作用：

copy

(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))

如果我在输入中没有得到过长的字符串。

尝试：

copy


(setq att-string (getstring T "\nType attribute name to count: "))
(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '("att-string"))) alist))

但它不起作用。

[编程交流] 计算等级库的属性值

发表回复

精选推荐