再autolisp中，怎样改变标注字体的颜色？

Kuja · 发表于 2003-5-11 14:20

请各位指教。

congcong · 发表于 2003-5-11 15:28

(defun c:dm ( / st sc n a vlaob )
(vl-cmdf "select" "")
(vl-load-com)
(princ "\nPlease select dimension...")
(setq st (ssget '((0 . "DIMENSION")))
   sc (getreal "\nInput the TextColor <3>:")
   )
(if (= sc nil) (setq sc 3))
(SETQ N 0)
  (IF (/= ST NIL)
(PROGN
   (REPEAT (SSLENGTH ST)
(SETQ A (SSNAME ST N)
      vlaob (vlax-ename->vla-object a)
      )
(vla-put-TextColor vlaob sc)
(SETQ N (+ N 1))
);END REPEAT
   );END PROGN
   )
  )

lzfat · 发表于 2003-5-13 21:07

提示: 作者被禁止或删除内容自动屏蔽

Taoyimaier · 发表于 2003-5-13 21:24

(defun c:changecolor()
  (while (setq txtent (car (entsel "\nChoose the text")))
(setq info (entget txtent))
(setq colorgroup (assoc '62 (entget txtent)))
(setq cg (getint "\nInput the color number(0~255)"))
(setq info (subst (cons 62 cg) colorgroup info))
(entmod info)
(entupd txtent)
)
  (princ)
  )

龙龙仔 · 发表于 2003-5-14 08:05

zhuqi75 · 发表于 2003-5-14 08:57

这样很好,修改颜色也可以,通过层管理器进行,这样的问题要是编成的话,有小题大作之嫌.
其实程序如果缺乏系统的考虑,与病毒何异

前生 · 发表于 2003-5-14 09:12

龙龙仔 · 发表于 2003-5-14 12:33

Kuja · 发表于 2003-5-14 12:43

多谢大家

Taoyimaier · 发表于 2003-5-14 20:48

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

再autolisp中，怎样改变标注字体的颜色？

试试用active x 技术来解决这个问题

简单的问题应该简单解决

Taoyimaier:标注字体與text是不一樣的!

程序有时会带来危害

dimclrt的值控制标注尺寸的颜色吧

標註尺寸帶公差的話,只修dimclrt的值,在大量修改時不好用!

谢谢大家帮忙。

哦，sorry，

lzfat lzfat 当前离线积分 702 明经币个注册时间 2002-4-21 在线时间小时威望金钱个贡献激情	发表于 2003-5-13 21:07 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡