userzhl 发表于 2009-3-15 16:24:00

[求助]哪位高手知道，如何利用LSP修改属性块里的字体呢？

哪位高手知道，如何利用LSP修改属性块里的字体呢？

solomonbb 发表于 2009-3-15 17:53:00

好象不行吧! 只能同步

ZZXXQQ 发表于 2009-3-15 20:00:00


(DEFUN C:TT ()
(IF (AND (PRINC "\nSelect a Block with attribute 选择带属性图块 :")
          (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))
          (SETQ STYPE (GETSTRING "\nInput New Style Name :"))
          (TBLSEARCH "STYLE" STYPE)) (PROGN
(SETQ I 0)
(REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET(SSNAME SS I)) I (1+ I) ENT1 ENT)
   (WHILE (/= (CDR(ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "SEQEND")
    (IF (= (CDR(ASSOC 0 ENT1)) "ATTRIB") (PROGN
   (SETQ ENT1 (SUBST (CONS 7 STYPE) (ASSOC 7 ENT1) ENT1))
   (ENTMOD ENT1)
   (ENTMOD ENT)
    ))
   )
)
))
(PRINC)
)

lgx9612 发表于 2009-3-21 21:22:00

sdfwer

samshs 发表于 2009-4-3 15:10:00

<strong>如果可以修改属性块里的字高及宽度因子就好啦</strong>

adchi 发表于 2010-5-11 16:56:00

adchi 发表于 2010-5-11 17:01:00

adchi 发表于 2010-5-11 17:18:00

adchi 发表于 2010-5-11 17:18:00

adchi 发表于 2010-5-11 17:20:00

页: [1] 2
查看完整版本: [求助]哪位高手知道，如何利用LSP修改属性块里的字体呢？