自动画组立图

zfq831227

试试吧<br>DIE<br>快捷键<br><br>多义线程式

[此贴子已经被作者于2005-11-13 14:12:44编辑过]

chjcn

<P>早见过了..你不会是抄人家的吧.小心QQY找你.原意是这样的.出个示意组图.目的还在于绘所需板的外形!</P>

FANZAI

自动画组立图---内容贴图
。
.
.多义线程式---
;;;;;;;;;;;选择物体,并转为多义线程式AM 08:31 1998/5/15
(defun c:j(/ ss1 ss indi i j sname en1 en2 en3 en4)
  (setq pds (setvar "pdsize" 3))
  (prompt"请选择要编辑成多义线的物体")
;;;    (setq ss (ssget "c" (setq pt1 (getpoint "\n请输入选择窗口的第一点"))(setq pt2 (getcorner pt1 "\n请输入选择窗口的对角点"))
;;;                    (list (cons ))
  (while (not(setq ss1 (ssget)))(prompt"请选择要编辑成多义线的物体"))
  (setq i 0 j (sslength ss1) ss (ssadd))
  (while (< i j)
    (setq indi (ssname ss1 i))
    (setq en3 (cdr (assoc 8 (entget indi))))
    (setq en4 (cdr (assoc 70 (tblsearch "layer" en3))))
    (if (/= en4 4)(setq ss (ssadd indi ss)))
    (setq i (1+ i))
    )
  (if(/= ss nil)
      (progn
        (setq nn (sslength ss))
        (setq i 0)
        (repeat (- nn 1)
          (setq sname (ssname ss i))
          (setq en1 (entget sname))
          (setq en2 (cdr (assoc 0 (entget sname))))
          (if(and(/= en1 nil)(or(= en2 "LINE")(= en2 "ARC")(and(= en2 "LWPOLYLINE")(= (cdr (assoc 70 (entget sname))) 0))))
           (progn
            (setq en(cdr (assoc 0 (entget sname))))
            (if (or (= en "LWPOLYLINE") (= en "POLYLINE"))
               (command "pedit" sname "j" ss "" "")
               (command "pedit" sname "y" "j" ss "" "")
              )
           (setq i (+ i 1))
            )
      (setq i (+ i 1))         )         )     )   )
  (setq ss nil)
  (princ)

cqcab

没下下来，操作应该没问题。