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

bd_lhq

谢谢你的指点！！！

bd_lhq

谢谢您的指导

前生

呵呵，层的设置以及标注式样的设置什么的。。怎么没有人关心呢
MCCAD的开发。。。里有关于层的设置.
这是一种方法。
其实，我觉得方法及思路是最重要的，程序怎么写，则在其次了
机器怎么快了，一个不好的程序同好的程序比较，同样画一万个圆，
相差0.0?秒.呵呵，所以，程序的效率尽可能的保证,但是稳定正确是最
重要的,是首位!

cy956

(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)
)

wzh

象这段程序用于楷体是可以的，但在XP下用于宋体就不灵了。

jxphklibin

对于已经存在的文字样式，如何用纯lisp来完成文字样式的参数修改，而不用类似：(command "_.style" textsty "tssdeng,hztxt" 0 0.8 0 "n" "n" "n")的命令。

觉得比较繁琐，请高手编写一个，谢谢。

dxj958

no function definition: CY_ASUBST