13648893846 发表于 2018-11-18 10:27:51

选择集按组码对应值分离


[*];;[功能]选择集按组码对应值分离
[*];;[用法]
[*];;[作者]BY 老仓测绘上班记
[*];(setq ss (ssget) group 62 code 3)
[*];(setq ss1(LC:SS-Group-code-Split SS group code))
[*];(command "erase" ss1 "")
[*](defun LC:SS-Group-code-Split(ss group code / ss1)
[*](command "select" ss"")
[*](setq ss1 (ssget "p" (list(cons group code))))
[*])

Bao_lai 发表于 2018-11-18 14:26:53

上一个实例？

烟盒迷唇 发表于 2020-2-6 11:29:23

上面已经有说明了呀
页: [1]
查看完整版本: 选择集按组码对应值分离