yang686526

[求助]怎样用ssget检索特定的cass编码？
www.dimcax.com
[求助]怎样用ssget检索特定的cass编码？
怎样用ssget检索特定的cass编码？
不依赖cass程序而只是用lisp进行操作.
d
只用一个ssget函数可能不能实现“检索特定的cass编码”，
可用ssget选择了包含"south"的图元后，再逐个判断"south"的值，来达到目的。
d
可以提供一个代码的样例吗？
d
下面的示例仅供参考：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (sc_ssget scode) ;;
;; 返回有特定south扩展数据的选择集 ;;
;; scode south扩展数据 ;;
;; 示例 ;;
;; (setq ss(sc_ssget "141121")) ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun sc_ssget(scode / ss sn si i ed sc scss)
(setq ss(ssget "x" '((-3 ("south")))))
(setq sn(if ss (sslength ss) 0))
(setq scss(ssadd))
(setq i 0)
(while(< i sn)
(setq si(ssname ss i))
(setq ed(entget si '("south")))
(setq sc(cdr(cadr (cadr (assoc -3 ed)))))
(if(= sc scode)
(ssadd si scss)
)
(setq i(1+ i))
)
scss
)
;
d