[求助]：如何实现以下几个效果?

ZHYuan

首先,多谢各位!
用LISP语言在AUTO2002中,如何实现以下几个效果?
1.将用BREAK命令打断的二线连接起来?
2.如何实现以下图示有三个效果?
3.如何将关闭的层和未关闭的层进行反转? 如何将锁定的层和未锁定的层进行反转?
4.在AUTO2002中，F8或是CTRL+“L”是正交命令，如何用一键实现这个命令？
5.另外，哪里有关于LISP语言的书最好是结合例子讲解的。哪里有关于VBA编程的书最好是结合例子讲解的。
谢谢！

snoopychen

1.比较容易，寻找线1的两端点，寻找线2的两端点，可对端点进行1，2，3，4的排序，取1，4端点（比如非y方向直线可按x坐标排序），将原二直线去掉，更新新直线则可。
2。这个网上有一个程序，贴给你看看
(defun c:bmtr( / sp ep set1 entb  tl i ptb1 ptb2 newtb1 newtb2 set
                 stt cx_er cx_oe cx_oc gg ppp1 ppp2  ul)
   (defun cx_er(msg)
     (if (/= msg "Function cancelled")
       (if (= msg "quit / exit abort")
         (princ)  
         (princ (strcat "\n error :" msg))
       )
       (progn (setvar "osmode" gg) (princ))
     )
     (if cx_oe (setq *error* cx_oe))        
     (setvar "cmdecho" 0)
     (princ)
   )
   (if *error*
     (setq cx_oe *error* *error* cx_er)
     (setq *error* cx_er)
   )
   (princ "\nThancks For Using Me! ver(8.0)")
   (princ "\nCopyright By CX---1996.4.")
   (princ "\n本程序快捷键为 bmtr !\n")
   (setvar "CMDECHO" 0)
   (setq gg (getvar "osmode"))
   (setvar "osmode" 0)
   (setq sp (getpoint "\n First Corner Point of Window:"))
   (setq ep (getcorner sp "\n Other Corner Point:"))
   (setvar "osmode" gg)
   ;(setq ul (ssadd))  
   (setq set1 (ssadd))
   (setq ul (ssget "C" sp ep))   
   (if (not ul)
       (exit)
   )              
   (l_layer)   
   (ver_line)
   ;(setq ul (pplayer ul))
   (setq tl (in_w ul sp ep))         
   (if (/= 0 (sslength tl))
     (progn
       (setq set1(sub_set ul tl))     
       (int2 tl)     
       (int1 tl)   
       (setq i 0)           
       (while (< i (sslength newtb2))
         (ssadd (ssname newtb2 i) newtb1)
         (setq i (1+ i))
       )
       (setq ptb1 (reverse ptb1))
       (setq ptb2 (append ptb1 ptb2))
     )
     (int3 ul)
   )                       
   (if (/= 0 (sslength newtb1))
     (progn
       (setq i 0)
       (while (< i (sslength newtb1))
         (setq stt nil)
         (setq stt(ssadd))
         (ssadd (ssname newtb1 i) stt)
         (setq ppp1 (nth (* 2 i) ptb2))
         (setq ppp2(nth (+ 1 (* 2 i)) ptb2))
         (command "break"stt ppp1 ppp2)
         (setq i (1+ i))
       )
     )
   )
)

存为lsp，打bmtr则可
3。也不难，搜索所有的层，得其状态，反转则可
4。到网上找autohook2k以上版本则可
5。仁者见仁，智者见智