Lee Mac 发表于 2022-7-6 07:42:50

我建议使用“massoc”函数，例如：
;; MAssoc-Lee Mac
;; Returns all associations of a key in an association list

(defun LM:MAssoc ( key lst / item )
   (if (setq item (assoc key lst))
       (cons (cdr item) (LM:MAssoc key (cdr (member item lst))))
   )
)
 
现在
(defun c:test ( / s )
   (if (setq s (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))
       (mapcar 'print (LM:MAssoc 10 (entget (ssname s 0))))
   )
   (princ)
)

Lee Mac 发表于 2022-7-6 07:48:31

 
然而，您正在比较苹果和桔子，因为所有三个测试函数都返回不同的输出。

fabriciorby 发表于 2022-7-6 07:50:07

 
是 啊这也奏效了。(:
谢谢你，李。
页: 1 [2]
查看完整版本: 对矩形的天真怀疑