谁可以做到炸开块后，原先的属性值还显示在屏幕上

cnmb

楼主（liminnet） 青蜂侠，都到这个级别了，还没混出个所以然啊，也真够可怜的

cnl158

人家这个楼主招谁惹谁了啊

cnmb

哎，楼上这还看不出来啊，一定是这楼主到处大嘴巴呗！还能有啥啊。不过人家楼主大嘴巴也不至于这样吧，关键是楼主他自己都不清白啊，也难怪让众人不厌烦啊，真是活该啊

icefire

呵呵，不错，我这里也有个，可能不是很好，但大家可以试试

(defun c:ef()
 (setq attb nil)
 (setq name (car(entsel)))
 (setq da (entget name))
 (setq k (cdr(assoc 1 da)))
 (print name)(print da)(print k)
 (setq attnam (entnext name) da (entget attnam) k (cdr (assoc 1 da)))
 (setq j 0)
 (while (= "ATTRIB" (cdr (assoc 0 da)))
        (print name)(PRINT DA)(print k)
        (setq p (cdr (assoc 10 da)))(print p)
        (setq h (cdr (assoc 40 da)))(print h)
        (SETQ S (CDR (ASSOC 7 DA)))(PRINT S)
        (SETQ W (CDR (ASSOC 41 DA)))(PRINT W)
        (setq attb (cons (list k h p S W) attb))
        ;(getstring "a")
        (if (/= "STAR" (cdr (assoc 2 da)))
        (PROGN
        (COMMAND "STYLE" S S H W 0 "N" "N" "N")
        (command "text" p 0 k)))
        (setq attnam (entnext attnam) da (entget attnam) k (cdr (assoc 1 da)))
        (setq j (+ j 1))
 );while-attrib
 ;(print j)(getstring "num")
 (command "explode" name)
 (setq ent (ssget "x" (list (cons 0 "ATTDEF"))))
 (command "erase" ent "")
)

ljttjl

 

ljttjl

 

rain123321

看回帖还是比较精彩

自贡黄明儒

ET工具上的爆炸就可以了。

xyz2009xyz

liminnet发表于2010-8-30 22:11:00回忆刚好两年前的贴。真好笑，问题难度只是挥洒下手袍就可以解决 

楼主好强啊！