请教各位高手：如何用lisp程序实现对style命令的定义???
 

请教各位高手：如何用lisp程序实现对style命令的定义???
www.dimcax.com

谢谢
谢谢你的指点！！！
d
谢谢
谢谢您的指导
d
呵呵，层的设置以及标注式样的设置什么的。。
呵呵，层的设置以及标注式样的设置什么的。。怎么没有人关心呢
mccad的开发。。。里有关于层的设置.
这是一种方法。
其实，我觉得方法及思路是最重要的，程序怎么写，则在其次了
机器怎么快了，一个不好的程序同好的程序比较，同样画一万个圆，
相差0.0?秒.呵呵，所以，程序的效率尽可能的保证,但是稳定正确是最
重要的,是首位!
万事莫如杯在手
人生几见月当头!
ourscad@21cn.com
atcad@mjtd.com
d
老程序了，关于层。前生老兄不要看，你手上象这样的没十个有八个。:)
(defun #m_lay (layname laycolor laylinet / tlist);;(#m_lay "12" 1 "dashed")
(mapcar 'setvar '("cmdecho""blipmode")'(0 0))
(if (setq tlist(tblsearch "layer" layname))(progn
(setq laycolor0(dxf 62 tlist)
laylinet0(dxf 6 tlist))
(if (and laycolor(/= laycolor laycolor0))
(command "-layer" "c" laycolor layname ""))
(if (and laylinet(/= laylinet laylinet0))
(command "-layer" "lt" laylinet layname ""))
)(progn
(setq tlist (list
'(0 . "layer")
'(100 . "acdbsymboltablerecord")
'(100 . "acdblayertablerecord")
'(70 . 0)
(cons 2 layname)
))
(if laycolor
(setq tlist (append tlist (list (cons 62 laycolor)))))
(if laylinet
(setq tlist (append tlist (list (cons 6 laylinet)))))
(entmake tlist)
) )
(mapcar 'setvar '("cmdecho""blipmode")'(1 1))(princ)
)
d
象这段程序用于楷体是可以的，但在xp下用于宋体就不灵了。
象这段程序用于楷体是可以的，但在xp下用于宋体就不灵了。
不怕做不到，就怕想不到，最可怕的是想到了做不到
d
对于已经存在的文字样式，如何用纯lisp来完成文字样式的参数修改，而不用类似：(command "_.style" textsty "tssdeng,hztxt" 0 0.8 0 "n" "n" "n")的命令。
觉得比较繁琐，请高手编写一个，谢谢。