如何调整绘图顺序？

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

如何调整绘图顺序？

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

什么叫“绘图顺序”？

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

也就是优化

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

也就是优化

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

優化?

目的?

成效?

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

(defun c:order()
(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 (< k (sslength ss))

(setq name (ssname ss k))
(setq enta (entget name))
(setq shap (cdr (assoc 0 enta)))
(if (= shap "LINE")
(progn
(setq ps (cdr (assoc 10 enta)))
(setq pe (cdr (assoc 11 enta)))
)
)
(if (= shap "ARC")
(progn
(setq center (cdr (assoc 10 enta)))
(setq astart (cdr (assoc 50 enta)))
(setq rad (cdr (assoc 40 enta)))
(setq aend (cdr (assoc 51 enta)))
(setq ps (mapcar '+ center (list (* rad (cos astart)) (* rad (sin astart)))))
(setq pe (mapcar '+ center (list (* rad (cos aend)) (* rad (sin aend)))))
)
)
(setq change 0)
(if (or (/= dis 0.0) (or (= shap "LINE") (= shap "ARC")))
(progn
(if (> 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" "")最好用其它程序代替。

无痕 · 发表于 2004-2-13 11:11

按你需要的顺序原点拷贝，删除原物体

hkzwsy · 发表于 2004-2-13 11:19

但我不想用command命令，因为中途退出会有重合线。

hkzwsy · 发表于 2004-2-13 11:33

如果不用删除原物体又能改变顺序是最好不过。

无痕 · 发表于 2004-2-13 12:58

但我不想用command命令，因为中途退出会有重合线。

1.怎么肯能中途退出？

2。即便退出也可处理使之无重合线。

不用删除就用cad的置上，置下吧

账号		自动登录	找回密码
密码			注册

如何调整绘图顺序？

本帖子中包含更多资源

本帖子中包含更多资源