求五金模设计之自动模板分板程序完善

726613

   图一



   图二

图三

图四



(defun c:Tv (/ ss p1 p2 p3)
      (setq p2 (getpoint "-->请选取图框左下角点:"))
      (setq p3 (getpoint "-->请选取图框右上角的点:"))
      (setq p1 (getpoint "-->请确定分离位置点:"))
      (command "cmdecho" "0")
      (command "osnap" "none" nil)
           (setq ss (ssget "w" (list (car p2) (cadr p2))   
                               (list (car p3) (cadr p3))))
            (while ss
              (setq n 0)
             (while (>= (sslength ss) 1)
                     (setq ee (ssname ss 0))
                     (setq la (cdr (assoc 8 (entget ee))))
                     (setq s (ssget "w" (list (car p2) (cadr p2))   
                               (list (car p3) (cadr p3))
                               ))
                    (while s
                     (setq s1 (ssadd))
                     (setq c 0)
                     (while (<= c (- (sslength s) 1))
                       (setq e (ssname s c))
                       (if (= la (cdr (assoc 8 (entget e))))
                           (progn
                              (ssadd e s1)
                             (ssdel (handent (cdr (assoc 5 (entget e)))) ss)))
                        (setq c (+ 1 c)))
                    (setq s nil)
                      )
                       (setq sc (- (cadr p3) (cadr p2)))
                      (if (>= n 7)
                         (setq pt1 (list (+ (car p1) (- (car p3) (car p2)))
                                         (+ (cadr p1) (* (+ sc 30) (- n 6)))
                       ))
                      (if (< n 7)
                        (setq pt1 (list (car p1)
                                        (+ (cadr p1) (* (+ sc 30) n))))))
                      (command "text" "s" "standard" pt1 "10" "" la nil)
                     (command "copy" s1 "" p2 pt1 nil)
                     (setq n (+ n 1))
                )
     (setq ss nil)      )

  (princ)
)

在网上找出现有程序输入TV命令后，选取图框左下角点  请选取图框右上角的点  确定分离位置点，可以将选重的图层全部分出来。但是我想要的是按模板来分层，也就是说，按图三来分，一块板是要有三个图层或两个图层。
      使用对话框的形式，输入命令后，显示出图一，根据提示来分板，实现按板来分层，求高手们帮忙修改一下，谢谢。

726613

自己顶一顶

726613

请高手们多多指点