明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 皇上快溜

[提问] 想请大家帮忙看看这个程序是怎么控制字体高度的

[复制链接]
 楼主| 发表于 2016-6-29 13:02 | 显示全部楼层
机械工程师 发表于 2016-6-29 08:30
你看下2075行的
(command "TEXT" "MC" PTB TXT "" stringth)
还有35行的

dim字高???不是全局比例?
 楼主| 发表于 2016-6-29 16:07 | 显示全部楼层
机械工程师 发表于 2016-6-29 08:30
你看下2075行的
(command "TEXT" "MC" PTB TXT "" stringth)
还有35行的

你好,这个东西的字高改成跟随尺寸字高怎么改
(DEFUN C:xz()
  (setq pp1 (getpoint "\nPrint start point:"))
  (setq clay (getvar "clayer"))
  (SETQ DS (GETVAR "DIMSCALE"))
  (SETQ h (/ DS 4.0))
  (command "layer" "s" "T" "")
  (COMMAND "TEXT" PP1 h 0 "装配示意图")
  (command "layer" "S" CLAY  "")
)

点评

(setq h (* (getvar "DIMSCALE")(getvar "DIMTXT")))  发表于 2016-6-30 07:59
 楼主| 发表于 2016-6-30 12:37 | 显示全部楼层
本帖最后由 皇上快溜 于 2016-6-30 12:50 编辑

多谢楼上ZZXXQQ,程序超级爽。。。
 楼主| 发表于 2016-6-30 16:26 | 显示全部楼层
各位老大,下面程序如果想让文本"装配示意图"插入点处于文本字宽字高的中心点,该怎么改?
目前它的插入点是文本左下角
(DEFUN C:xz()
   (setq pp1 (getpoint "\nPrint start point:"))
   (setq clay (getvar "clayer"))
   (SETQ DS (GETVAR "DIMSCALE"))
   (setq h (* (getvar "DIMSCALE")(getvar "DIMTXT")))
   (command "layer" "s" "T" "")
   (COMMAND "TEXT" PP1 h 0 "装配示意图")
   (command "layer" "S" CLAY  "")
)

点评

(COMMAND "TEXT" "M" PP1 h 0 "装配示意图")  发表于 2016-7-1 08:03
 楼主| 发表于 2016-6-30 16:32 | 显示全部楼层
分享一个小程序,非常寒酸的,纯山寨的。字高随标注来自ZZXXQQ指点,特性拆借自开金工具。感谢二位
(DEFUN C:SJSJ()
(setq pp1 (getpoint "\n起始点:"))
(setq clay (getvar "clayer"))
(SETQ DS (GETVAR "DIMSCALE"))
(setq h (* (getvar "DIMSCALE")(getvar "DIMTXT")))
(command "layer" "s" "DIM" "")
(COMMAND "TEXT" PP1 h 0 (menucmd "M=$(edtime,$(getvar,date),hh:mm:ss)"))
(command "layer" "S" CLAY  ""))
发表于 2016-7-1 08:22 | 显示全部楼层
进步源于分享,明经有你更精彩。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 17:47 , Processed in 0.210424 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表