这个代码，能选中图形了，却不能过滤，在哪出错

ztj988 · 发表于 3 天前

请教各位大佬，我的这个代码，能选中图形了，却不能过滤，在哪出错。也就是选到了所有图形，却不过滤。运行语句：(ssget-doc "x" '((0 . "CIRCLE,LINE")))

(defun ssget-doc ( seltype filst / filster listtosafearray lst made-filterlst pl pnts sset ssetobj target-doc)
(defun ListToSafearray (symVariableType lstValues / safValues)
(setq safValues (vlax-make-safearray symVariableType
(cons 0 (1- (length lstValues)))))
(vlax-safearray-fill safValues lstValues)
; safValues
)
;把形如ssget里的过滤表转换成vla的数组
(defun made-filterlst(filst / filter_code filter_codelist filter_value filter_valuelist)
(setq filter_codelist (mapcar '(lambda (x) (car x)) filst)
filter_valuelist (mapcar '(lambda (x) (cdr x)) filst)
filter_code (ListtoSafearray 2 filter_codelist)
filter_value (ListtoSafearray 12 filter_valuelist))
(list filter_code filter_value)
)
;; 将 "另一个文档的文件名" 替换为实际文件名
(setq target-doc (vla-get-ActiveDocument (vlax-get-acad-object) ))
;; 获取目标文档的 SelectionSets 集合
(setq sset (vla-get-selectionsets target-doc))
(if (vl-catch-all-error-p
(vl-catch-all-apply '(lambda(x) (setq ssetObj (vlax-invoke-method x 'add "TEST_SSET4")) )(list sset)))
(progn (vla-clear (vla-item sset "TEST_SSET4"))
(setq ssetObj (vla-item sset "TEST_SSET4"))
)
)
;; 设置过滤条件
(setq filster (made-filterlst filst))
(vlax-invoke-method ssetobj 'Select
(cond
((= seltype "p")acSelectionSetPrevious)
((= seltype "l")acSelectionSetLast )
((= seltype "x")acSelectionSetAll )
)
(car filster)(cadr filster))
(princ (vla-get-Count ssetObj ))
(vla-Delete ssetObj)
)

kozmosovia · 发表于 3 天前

本帖最后由 kozmosovia 于 2024-9-20 09:45 编辑

(vlax-safearray-fill safValues lstValues)返回值是safearray或者nil,不是variant，需要再make-variant一下

xyp1964 · 发表于 3 天前

(ssget"x"'((0 . "CIRCLE,LINE")))多简单

账号		自动登录	找回密码
密码			注册

[讨论] 这个代码，能选中图形了，却不能过滤，在哪出错