标注样式的替换LISP

glow123 · 发表于 2010-6-26 08:00:00

好想看到内容啊

billliu66 · 发表于 2010-6-26 21:17:00

kan kan

gason · 发表于 2011-10-19 10:19:39

要5个回帖，这个潜水号杯具了

gason · 发表于 2011-10-19 10:38:50

要5个回帖，这个潜水号杯具了

dforme · 发表于 2011-10-25 13:52:32

呵呵，级别不够，参观一下

mjz521yy · 发表于 2011-10-25 14:06:25

谢谢！[em0]谢谢！

raimo · 发表于 2011-10-25 15:57:23

2009年的帖子都翻上来了..不过很有用..

millermin · 发表于 2011-11-20 14:17:48

我也贴一个给你参考。我自己做的。能够在整个图形文件里，自动找到指定的旧样式替换成你需要的新样式。所以你需要输入新旧两种样式，但是不用选目标。全图替换。

(defun c:fd()
(setq dim-del (strcase (getstring "\nENTER A EXPIRED DIM STYLE:")))
(setq dim-chg(strcase (getstring "\nENTER A NEW DIM STYLE:")))
(setq ss (ssget "x" '((0 . "DIMENSION,LEADER"))))
(setq m 0 )
(setq n 0)
(if (/= ss nil) ;no1
(progn ;no1
   (repeat (sslength ss)
      (setq dimdata(entget(ssname ss m)))
      (setq old-obj0(strcase(cdr(assoc 3 dimdata))))
         (if (= old-obj0 dim-del) ;n02
            (progn ;no2
            (setq old-obj (assoc 3 dimdata))
            (setq new-obj (cons 3 dim-chg))

            (setq dimdata(subst new-obj old-obj dimdata))
            (entmod dimdata)
            (setq m (1+ m))
            (setq n (1+ n))
            ) ;end progn no2
            (setq m (1+ m))
         ) ; end if no2
         ) ; end repeat
   (print (strcat " TOTAL DIMENSIONS OBJECTS: " "----------------"(rtos m)))
   (print (strcat " CHANGED EXPIRED DIMENSIONS: " "--------------"(rtos n)))
   (princ)
) ;end progn no1
(progn  ; no3
      (print  "DIMENSION NOT FOUND")
      (princ)
   ) ;end progn no3
)  ; end if no1
)

lvrenfei · 发表于 2011-11-20 15:14:44

楼主真厉害

lvrenfei · 发表于 2011-11-20 15:15:15

错了，应该是版主，嘿嘿

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