liminnet
发表于 2008-6-10 18:08:00
wshark
发表于 2008-6-10 19:51:00
<p>这里有</p><p>http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68238</p>
liminnet
发表于 2008-6-10 20:05:00
wshark
发表于 2008-6-10 20:53:00
你最近在这个版块很活跃呀
liminnet
发表于 2008-6-10 21:00:00
caoyin
发表于 2008-6-10 21:41:00
<p>你可以将要创建的图层以及相关的图层数据写在 *.txt 文件中，然后读取--创建，那样不是更方便</p><p></p>
liminnet
发表于 2008-6-10 21:52:00
caoyin
发表于 2008-6-10 22:20:00
那 -layer命令 不是最好的解决方案吗
liminnet
发表于 2008-6-11 13:02:00
caoyin
发表于 2008-6-11 17:54:00
是这个意思？？
(defun c:TT (/ a col lty)
(setq a (entget (tblobjname "layer" (getvar "clayer")))
col (getvar "cecolor")
lty (getvar "celtype")
)
(if (not (wcmatch col "BY*"))
(setq a (subst (cons 62 (atoi col)) (assoc 62 a) a))
(princ (strcat "\n当前颜色 " col " 无意义。"))
)
(if (not (wcmatch lty "By*"))
(setq a (subst (cons 6 lty) (assoc 6 a) a))
(princ (strcat "\n当前线型 " lty " 无意义。"))
)
(entmod a)
(princ)
)