[求助]如何取得阵列后所得图元?

xiexiaohua

  这是本人编的测试小程序:    不知怎么的,选不上阵列后所得的6个小圆柱，请大家帮帮忙！！！！！

 (defun c:aa()
(setq p1 (getpoint"\n1111"))
(command "circle" p1 100 "")
(setq x1 (ssget "L"))
(setq p2 (polar p1 0 50))
(command "circle" p2 15 "")
(setq x2 (ssget "L"))
(command "extrude" x1 "" 100 0)
(setq x3 (ssget "L"))
(command "extrude" x2 "" 100 0)
(setq x4 (ssget "L"))
(command "array" x4 "" "p" p1 6 360 "y")
(ssadd (entlast) x4)
(command "subtract" x3 "" x4 ""))

caoyin

;; ▓ (lt:ss-entnext en)
;; [功能] 获取在图元 en 之后产生的图元的选择集
;; [参数] en----图元名
;; [返回] 选择集
;; [测试]1.(setq ent (entlast))
;;         执行创建图元的命令，如 LINE,BOUNDARY
;;         (setq lst (lt:ss-entnext ent))
;;       2.(setq s (lt:ss-entnext (car(entsel))))
(defun lt:ss-entnext (en / ss)
  (setq ss (ssadd))
  (while en (setq en (entnext en)) (if en (ssadd en ss)))
  (if (zerop (sslength ss)) (setq ss nil))
  ss
)

xiexiaohua

   先谢谢caoyin大侠的解答.我去实践一下.

xiexiaohua

  我还是运行不了,这么修改,对吗?

  (defun c:aa()
(setq p1 (getpoint"\n1111"))
(command "circle" p1 100 "")
(setq x1 (ssget "L"))
(setq p2 (polar p1 0 50))
(command "circle" p2 15 "")
(setq x2 (ssget "L"))
 (command "extrude" x1 "" 100 0)
(setq x3 (ssget "L"))
(command "extrude" x2 "" 100 0)                    
(setq en (entlast))
(command "array" en "" "p" p1 6 360 "y")
(lt:ss-entnext)
(setq x5 (lt:ss-entnext en))
(command "subtract" x3 "" x5 ""))

(defun lt:ss-entnext (en / ss)
(setq ss (ssadd))
(while en (setq en (entnext en)) (if en (ssadd en ss)))
(if (zerop (sslength ss)) (setq ss nil))
  ss)

caoyin

(defun c:aa (/ lt:ss-entnext p1 x1 p2 x2 x3 x4 x5)
  (defun lt:ss-entnext (en / ss)
    (setq ss (ssadd))
    (while en (setq en (entnext en)) (if en (ssadd en ss)))
    (if (zerop (sslength ss)) (setq ss nil))
    ss
  )
  (setq p1 (getpoint"\n1111"))
  (command "_.circle" p1 100 "")
  (setq x1 (entlast))
  (setq p2 (polar p1 0 50))
  (command "circle" p2 15 "")
  (setq x2 (entlast))
  (command "extrude" x1 "" 100 0)
  (setq x3 (entlast))
  (command "extrude" x2 "" 100 0)                    
  (setq x4 (entlast))
  (command "array" x4 "" "p" p1 6 360 "y")
  (setq x5 (lt:ss-entnext x4))
  (ssadd x4 x5)
  (command "subtract" x3 "" x5 "")
)

xiexiaohua

  非常感谢  caoyin 大侠解了我的燃眉之急......

xiexiaohua

  还是感谢caoyin ,我又学到了新知识了!!!!!!!!

qq1254582201

再次收藏类似程序