[求助]：怎样从选择集里提取指定的实体加入新选择集

真龙天子 · 发表于 2006-7-6 09:59:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一选择集ssf里有若干类型的实体，现想把ssf里所有闭合的plinex线选取出，加入到另一选择集ssk1里,把ssf里所有的的spline线选出加入ssk2里．怎么就加不进去呢，ssk1和ssk2里都有为nil，请问错在那里？
      (setq ssf (ssadd)
            ssk1 (ssadd)
            ssk2 (ssadd)
            ssf (ssget "f" (list p0 pn))
            i 0
      )
            (repeat (sslength ssf)
                     (setq ssn (ssname ssf i)
                           end1 (entget ssn)
                           od (assoc 70 end1)
                     )
                  (if (= od 1) (ssadd ssn ssk1)) ;如果群码值为1，是封闭的多段线
                  (if (= od 11) (ssadd ssn ssk2))  ;如果群码值为11，是封闭的曲线
                  (setq i (+ i 1))
            )

cad_cae_king · 发表于 2006-7-6 20:01:27

(defun c:ee ()
  (setq p0 (getpoint "\n pick a point"))
  (setq pn (getcorner p0  "\n pick a point"))

  (setq ssf  (ssadd)
ssk1 (ssadd)
ssk2 (ssadd)

ssf  (ssget "f" (list p0 pn))
i 0
  )
  (repeat (sslength ssf)
(setq ssn  (ssname ssf i)
   end1 (entget ssn)
   od (cdr (assoc 70 end1))
)
(if (= od 1)
   (ssadd  end1 ssk1 )
) ;如果群码值为1，是封闭的多段线
(princ)
(if (= od 11)
   (ssadd end1 ssk2 )
) ;如果群码值为11，是封闭的曲线
(setq i (+ i 1))
  )
  ;(entupd ssk1)
  ;(entupd ssk2)
)

xyp1964 · 发表于 2006-7-6 21:05:35

[FONT=courier new](setq ;ssf (ssget '((0 . "*POLYLINE")))
ssk1 (ssadd)
ssk2 (ssadd)
i -1
)
(while (setq s1 (ssname ssf (setq i (1+ i))))
(if (vlax-curve-isClosed s1)
(ssadd s1 ssk1)
(ssadd s1 ssk2)
)
)[/FONT]

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

[求助] [求助]：怎样从选择集里提取指定的实体加入新选择集

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子