如何调整绘图顺序？

hkzwsy · 发表于 2004-2-13 08:19:00

如何调整绘图顺序？

Student · 发表于 2004-2-13 08:32:00

什么叫“绘图顺序”？

hkzwsy · 发表于 2004-2-13 10:04:00

也就是优化200421310447680.dwg

hkzwsy · 发表于 2004-2-13 10:16:00

也就是优化20042131016814.dwg

f5612140 · 发表于 2004-2-13 10:17:00

優化?
目的?
成效?

hkzwsy · 发表于 2004-2-13 10:53:00

(defun crder()
   (command "-layer" "n" "order" "s" "order" "c" "0" "" "")
   (setq ss (ssget))
   (setq nname "")
   (setq pp '(0.0 0.0 0.0))
   (setq point '(0.0 0.0 0.0))
   (setq k 0)
   (setq d 0)
   (while (> (sslength ss) 0)
   (print (sslength ss))
   (setq k 0)
   (setq dis 2000.0)
   (setq cha_pe 0)
   (while ( dis (distance point ps))
   (progn
   (setq dis (distance point ps))
   ;(print dis)
   (setq pp pe)
   (setq d k)
   (setq cha_pe 0)
   (setq change 1)
   )
   )
   (if (> dis (distance point pe))
   (progn
   (setq dis (distance point pe))
   ;(print dis)
   (setq pp ps)
   (setq d k)
   (setq cha_pe 1)
   (setq change 1)
   )
   )

   )
   )

   (if (= change 1) (setq obj enta))
   (if (= dis 0)
   (setq k (sslength ss))
   (setq k (1+ k))
   )
   )

   (setq cc (entget(ssname ss d)))
   (if (= cha_pe 1)
   (progn
   (setq shap (cdr (assoc 0 cc)))
   (if (= shap "LINE")
   (progn
   (setq aa (cdr(assoc 10 cc)))
   (setq bb (cdr(assoc 11 cc)))
   (setq cc (subst '(list 11 aa) '(list 11 bb) cc))
   (setq cc (subst '(list 10 bb) '(list 10 aa) cc))
   )
   (if (= shap "ARC")
   (progn
   ;(print "pass2")
   (setq aa (cdr(assoc 50 cc)))
   (setq bb (cdr(assoc 51 cc)))
   ;(print (cons 50 bb))
   (if (> aa 0.0)
   (setq aa (- aa 6.2831853))
   (setq aa (+ aa 6.2831853))
   )
   (if (> bb 0.0)
   (setq bb (- bb 6.2831853))
   (setq bb (+ bb 6.2831853))
   )
   (setq cc (subst (cons 50 bb) (cons 50 aa) cc))
   (setq cc (subst (cons 51 aa) (cons 51 bb) cc))
   )
   )
   )
   )
   )
   (setq cc (subst (cons 8 "order") (assoc 8 cc) cc))
   (entmake cc)

   (ssdel (ssname ss d) ss)


   (setq point pp)


   )
   (command "-layer" "off" "order" "y" "")
   (command "erase" "p" "")
   (command "-layer" "on" "order" "")
   (princ)
   )
(command "erase" "p" "")最好用其它程序代替。