[求助] lisp如何获得command之后的图元选择集（已解决）

jxphklibin · 发表于 2011-6-16 14:07:45

呵呵，论坛上搜索以前都有的

zhb236623 · 发表于 2011-6-16 23:40:13

赶紧收藏。。。。。。。。。。。。。

pizg · 发表于 2011-6-18 08:09:49

值得收藏的好東西

raoc5 · 发表于 2011-6-20 00:41:42

(defun c:tt(/  b  c )

(setq b (ssget))

(setvar "PEDITACCEPT" 1)
(command "pedit" "m" b  "" "j" 10  "")

(setq c (lt:ss-entnext ss))


  (command "move" c ""  (list 0  0)  (list 300  300)  )

  )
;// 反回选择集
(defun lt:ss-entnext (en / ss)
  (if en
(progn
   (setq ss (ssadd))
   (while (setq en (entnext en))
      (if (not (member (cdr (assoc 0 (entget en)))
                     '("ATTRIB" "VERTEX" "SEQEND")
               )
         )
      (ssadd en ss)
      )
   )
   (if (zerop (sslength ss)) (setq ss nil))
   ss
)
(ssget "_x")
  )
)

怎么把其它图元也给选上了，望高手指点，我是才学LISP,

Andyhon · 发表于 2011-6-20 08:12:05

(defun c:tt (/ b c)
  (setq b (ssget))
  (setvar "PEDITACCEPT" 1)
  (command "pedit" "m" b "" "j" 10 "")
  ;; (setq c (lt:ss-entnext ss))
  (setq c (entlast))                ;  check  if ....
  (command "move" c "" (list 0 0) (list 300 300))
)

jh1005 · 发表于 2011-6-20 21:21:44

本帖最后由 jh1005 于 2011-6-20 21:24 编辑

回复 raoc5 的帖子

(defun c:tt(/ b c e )
(setq b (ssget))
(setq e (entlast))
(setvar "PEDITACCEPT" 1)
(command "pedit" "m" b "" "j" 10 "")
(setq c (lt:ss-entnext e))
(command "move" c "" (list 0 0) (list 300 300) )
(princ)
)

肌肉 · 发表于 2011-6-29 22:45:36

谢谢分享

chengx2000 · 发表于 2011-6-30 20:40:09

回复 caoyin 的帖子

请问版主：(defun lt:ss-entnext (en / ss)和(defun c:ss-entnext (en / ss)之间有什么区别？
通常我们都是(defun C:rr())的，您这种用法真没见过，望指教！

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