[讨论]：如何选择到copy以后的实体

LUCAS

;;會將原來的選集也選上?
  (command "_.MOVE" (C:J) "" PAUSE PAUSE);把"P"取消即可

;;要是中途取消了?
  再重新執行,當然不行,因命令指標已更改了!如MIRROR後,再array(中途取消).
  它只記著array開始指標,因中途取消, array開始後並沒有新產生物件。
你試用LINE連續畫幾條線,再按ESC,它會選到那連續畫的線,指令總有點限制,
  正如UNDO, Autocad會如何處理"p",選取物件: p ----無選集前例。

它山之石

　　1、谢谢LUCAS斑竹(龍龍仔)这么详细的解答。我觉得用在命令行更实用些。尤其是COPY等命令后又感觉位置不合适时移动特别方便。
　　2、但是在COPY命令中用'J时似乎未执行命令就退出了。

liuyj

最初由 LUCAS 发布
[B];;會將原來的選集也選上?
  (command "_.MOVE" (C:J) "" PAUSE PAUSE);把"P"取消即可

;;要是中途取消了?
  再重新執行,當然不行,因命令指標已更改了!如MIRROR後,再array(中途取消).
  它只記著array開始指標,?.. [/B]

1、我是用在命令行，没用什么“P”。
2、您原来的用反应器的程序我一直在用，很好用，中途取消后再执行仍然可以正确选择。

LUCAS

最初由 它山之石 发布
[B]　　1、谢谢LUCAS斑竹(龍龍仔)这么详细的解答。我觉得用在命令行更实用些。尤其是COPY等命令后又感觉位置不合适时移动特别方便。
　　2、但是在COPY命令中用'J时似乎未执行命令就退出了。 [/B]

用'J时似乎未执行命令
=>有執行,你沒看到選集回存值嗎?
=>只是你那C指令是甚麼??我可沒有,我的C=CIRCLE指令!!

它山之石

　我的C就是COPY。操作过程是这样的，当运行COPY命令，出现“选择对象：”的提示，键入“'J”，CAD没有反应，命令行是空白，光标为选择状态，再按右键后出现<Selection set: e3>之类的提示后退出。就算是有選集回存值，可是并没有完成复制。

LUCAS

修正-----中途取消，可再重新執行(J.VLX)

就算是有選集回存值
=>SORRY!沒有你說的情況!(我只在R2005測試,而我的C是CIRCLE,你可能改變了指令結構!!)

它山之石

　　配合龙龙仔的程序，俺把COPY等命令重定义了，当选到实体时执行正常命令，当直接回车时先得到标记后的实体，再按正常命令执行。如果没有选到实体也没有标记后的实体，就退出。大家试试还行吗？
    另外，如何保证J.VLX程序是加载过了的呢？

[php]
(defun C:E ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.ERASE" ss "")
    (command "_.ERASE" (if (c:j) (c:j) ""))
  )
  (princ)
)


(defun C:M ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.MOVE" ss "")
    (command "_.MOVE" (if (c:j) (c:j) ""))
  )
  (princ)
)

(defun C:C ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.COPY" ss "" "M")
    (command "_.COPY" (if (c:j) (c:j) "") (if (c:j) PAUSE) (if (c:j) "M"))
  )
  (princ)
)

(defun C:MI ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.MIRROR" ss "" PAUSE PAUSE "Y")
    (command "_.MIRROR" (if (c:j) (c:j) "") (if (c:j) PAUSE) (if (c:j) PAUSE) (if (c:j) PAUSE) (if (c:j) "Y"))
  )
  (princ)
)

(defun C:MII ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.MIRROR" ss "" PAUSE PAUSE "N")
    (command "_.MIRROR" (if (c:j) (c:j) "") (if (c:j) PAUSE) (if (c:j) PAUSE) (if (c:j) PAUSE) (if (c:j) "N"))
  )
  (princ)
)

(defun C:RO ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.ROTATE" ss "")
    (command "_.ROTATE" (if (c:j) (c:j) ""))
  )
  (princ)
)

(defun C:SC ( / ss)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (if ss
    (command "_.SCALE" ss "")
    (command "_.SCALE" (if (c:j) (c:j) ""))
  )
  (princ)
)
[/php]

LUCAS

2. 
   
3. (if (not (member 'J (vl-list-loaded-vlx)))
   
4.   (load "J.VLX")
   
5. )
   

<br /> (if (not (member 'J (vl-list-loaded-vlx)))<br />   (load "J.VLX")<br /> )<br />