为什么定数等分线的点能自动加入最近选择集,而line生成的线却不能?

004

;;定数等分线
(command "_.divide" (car (entsel)) 10 "")
(setq SS2 (ssget "p"))
(if ss2
  (progn
    (princ "\n有")
    (princ (sslength ss2))
  )
  (princ "\nmei  ss2")
)

;;为什么定数等分线的点能自动加入最近选择集,而line生成的线却不能
(command "line" '(1 1) '(2 2) "")
(setq ss (ssget "p"))
(if ss
  (princ (sslength ss))
  (princ "mei")
)

xsso

你想要最后生成的对象可以用(entlast)

2. [code=lisp]
   
3. (command "line" '(1 1) '(2 2) "")
   
4. (setq last_ent (entlast))
   
5. 
   
6. ;;或者
   
7. (setq ent_next (entnext (entlast)))
   
8. (command "line" '(1 1) '(2 2) "")

[code=lisp] <br /> (command "line" '(1 1) '(2 2) "")<br /> (setq last_ent (entlast))<br /> <br /> ;;或者<br /> (setq ent_next (entnext (entlast)))<br /> (command "line" '(1 1) '(2 2) "")

guankuiwu

学习了！多谢