设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 表格，如果文字在居中
返回列表 发新帖
查看: 1209|回复: 4

[讨论] 表格，如果文字在居中

[复制链接]
shcvip
发表于 2021-10-24 15:23:08 | 显示全部楼层 |阅读模式
本帖最后由 shcvip 于 2021-10-24 21:24 编辑

我改别人的程序，在自己的cad中，放大图框比例后，制作的出来的表格，文字不居中，不知道是那里问题，请教各位。
  2. ;;;http://huojibk.com/2021/01/604.html
  3. (defun C:tt (/ buz k pt kb cir WUS)
  4. ;;;  (defun C:ttb ()
  5.   (setq osm (getvar "osmode"))
  6.   (setvar "cmdecho" 0)                        ;0关闭回显
  7.   (setvar "osmode" 0)                        ;关闭捕捉
  8. (setq bili (getvar "dimscale"))
  9. ;文字位置调试数据
  10. (setq da1 (* 17 bili)
  11. da2 (* 39 bili)
  12. da3 (* (+ 56 7) bili)
  13. da4 (* 74 bili)
  14. da5 (* 95 bili)
  15. pt 0
  16. )
  17. ;数据格式
  18. (setq DB'(
  19.           ("H01-T01" "200.000" "200" "-995.555" )
  20.           ("H02" "D2" "0" "-5" )
  21.           ))
  22. ;;;(setq buz (getvar "osmode");捕捉
  23. (setq pt(getpoint "\n -->请指定程式表基点位置:"))
  24. ;;;(setvar "osmode" 0)
  25. (setq AX1(+(car pt) da1)
  26. AX2(+(car pt) da2)
  27. AX3(+(car pt) da3)
  28. AX4(+(car pt) da4)
  29. AX5(+(car pt) da5)   
  30. ;;; AX6(+(car pt) da6)
  31. ;;;AX7(-(cadr pt) 1)
  32.       AX7(-(cadr pt) 0)
  33. AX0 pt
  34. K 0
  35. )
  36. (setq AX0(list (car pt) (- (cadr pt) 0)))
  37. (setq da1(list AX1 AX7))
  38. (setq da2(list AX2 AX7))
  39. (setq da3(list AX3 AX7))
  40. ;固定的表头
  41. ;;;(command "_text" "j" "m" AX0 "3" "0" "序号")
  42.   (layer_w)
  43. (COMMAND "TEXT" "j" "m" AX0  0 "序号")
  44. ;;;  (COMMAND "TEXT" "j" "m" PT10 0 txt_name)
  45. ;;;(command "_text" "j" "m" da1 "3" "0" "刀号-刀补")
  46.   (COMMAND "TEXT" "j" "m" da1 0 "名称")
  47.   (COMMAND "TEXT" "j" "m" da2 0 "单位")
  48.   (COMMAND "TEXT" "j" "m" da3 0 "性能参数")
  49. (setq DB(reverse DB)
  50. bc (length DB));表长
  51. ;;;(while (> bc k)
  52. (setq kb(nth k DB))

  54. ;固定的表数据写对应的位置
  55. ;;;(command "_text" "j" "m" AX0 "3" "0" (+ k 1))

  57. ;;;  (COMMAND "TEXT" "j" "m" da1 0 "处理风量")

  59. ;;;(COMMAND "TEXT" "j" "m" AX0 0 "1")

  61. (csbzl)
  62. (textKU "1" AX0 AX0)
  63. (textKU "处理风量" da1 da1)
  64. (textKU "m\u+00b3/h" da2 da2)
  65. (textKU (strcat  (rtos FS_Q 2 2) "x"  "10\u+00b4" ) da3 da3)  
  66. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  67. (csbzl)
  68. (textKU "2" AX0 AX0)
  69.   (textKU "过滤面积" da1 da1)
  70.   (textKU "m\u+00b2" da2 da2)
  71.   (textKU (rtos s_bdn 2 0) da3 da3)
  72. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  73. (csbzl)
  74. (textKU "3" AX0 AX0)
  75.   (textKU "过滤风速" da1 da1)
  76.   (textKU "m/min" da2 da2)
  77.   (textKU (strcat  (rtos fv_g 2 2) "(离线:" (rtos fv_LXg 2 2) ")"  ) da3 da3)  
  78. ;;;(COMMAND "TEXT" "j" "m" AX0 0 "3")
  79. ;;;  (COMMAND "TEXT" "j" "m" da1 0 "过滤风速")
  80. ;;;  (COMMAND "TEXT" "j" "m" da2 0 "m/min")
  81. ;;;  (COMMAND "TEXT" "j" "m" da3 0   (strcat  (rtos fv_g 2 2) "(离线:" (rtos fv_LXg 2 2) ")"  ))
  82. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  83. (csbzl)
  84. (textKU "4" AX0 AX0)
  85.   (textKU "入口温度" da1 da1)
  86.   (textKU "%%dC" da2 da2)
  87.   (textKU "\U+2264X" da3 da3)
  88.    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  89. (csbzl)
  90.   (textKU "5" AX0 AX0)
  91.   (textKU "入口含尘浓度" da1 da1)
  92.   (textKU "g/Nm\u+00b3" da2 da2)
  93.   (textKU "X" da3 da3)
  94. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  95. (csbzl)
  96.   (textKU "6" AX0 AX0)
  97.   (textKU "出口含尘浓度" da1 da1)
  98.   (textKU "mg/Nm\u+00b3" da2 da2)
  99.   (textKU "\U+226410" da3 da3)
  100. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  101. (csbzl)
  102.   (textKU "7" AX0 AX0)
  103.   (textKU "滤袋规格" da1 da1)
  104.   (textKU "mm" da2 da2)
  105.   (textKU (strcat "%%c" (rtos BD_D 2 2) "x"  (rtos BD_L 2 2)) da3 da3)
  106.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  107. (csbzl)
  108.   (textKU "8" AX0 AX0)
  109.   (textKU "袋笼规格" da1 da1)
  110.   (textKU "mm" da2 da2)
  111.   (textKU (strcat (rtos (- BD_D 5) 2 2) "x"  (rtos (- BD_L 50) 2 2)) da3 da3)
  112.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  113.    (csbzl)
  114.   (textKU "9" AX0 AX0)
  115.   (textKU "滤袋数量" da1 da1)
  116.   (textKU "条" da2 da2)
  117.   (textKU (rtos bd_N 2 2) da3 da3)
  118.     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  119.    (csbzl)
  120.   (textKU "10" AX0 AX0)
  121.   (textKU "滤袋材质" da1 da1)
  122.   ;;;  (COMMAND "TEXT" "j" "m" (get_midpt da2 da3)  0 "550g/m\u+00b2防静电涤纶针刺毡覆膜")
  123.   (textKU "550g/m\u+00b2防静电涤纶针刺毡覆膜" (get_midpt da2 da3) (get_midpt da2 da3))
  124.     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  125.    (csbzl)
  126.     (textKU "11" AX0 AX0)
  127.   (textKU "脉冲阀规格" da1 da1)
  128.   (textKU "X寸淹没式脉冲阀 DC24V" (get_midpt da2 da3) (get_midpt da2 da3))
  129. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  130. (csbzl)
  131.     (textKU "12" AX0 AX0)
  132.   (textKU "脉冲阀数量" da1 da1)
  133.   (textKU "个" da2 da2)
  134.   (textKU (rtos mcf_LXN 2 2) da3 da3)
  135. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  136. (csbzl)
  137.   (textKU "13" AX0 AX0)
  138.   (textKU "脉冲气源耗量" da1 da1)
  139.   (textKU "Nm\u+00b2/h" da2 da2)
  140.   (textKU "X" da3 da3)
  141. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  142.   (csbzl)
  143.   (textKU "14" AX0 AX0)
  144.   (textKU "脉冲气源压力" da1 da1)
  145.   (textKU "Mpa" da2 da2)
  146.   (textKU "0.4-0.6" da3 da3)   
  147. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  148.   (csbzl)
  149.   (textKU "15" AX0 AX0)
  150.   (textKU "喷吹气源压力" da1 da1)
  151.   (textKU "Mpa" da2 da2)
  152.   (textKU "0.25-0.35" da3 da3)
  153. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  154.     (csbzl)
  155.     (textKU "16" AX0 AX0)
  156.   (textKU "除尘器阻力" da1 da1)
  157.   (textKU "Pa" da2 da2)
  158.   (textKU "\U+22641500" da3 da3)
  159. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  160.       (csbzl)
  161.       (textKU "17" AX0 AX0)
  162.   (textKU "箱体耐压" da1 da1)
  163.   (textKU "Pa" da2 da2)
  164.   (textKU "-7000" da3 da3)
  165. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  166.   (csbzl)
  167.   (textKU "18" AX0 AX0)
  168.   (textKU "漏风率" da1 da1)
  169.   (textKU "%" da2 da2)
  170.   (textKU "\U+22642" da3 da3)
  171. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  172.   (csbzl)
  173.    (textKU "19" AX0 AX0)
  174.   (textKU "清灰机制" da1 da1)
  175.   (textKU "离线喷吹清灰" (get_midpt da2 da3) (get_midpt da2 da3))
  176. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  177.   (csbzl)
  178. (textKU "20" AX0 AX0)
  179.   (textKU "卸灰方式" da1 da1)
  180.   (textKU "星型卸灰阀→刮板机→" (get_midpt da2 da3) (get_midpt da2 da3))
  181. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  182.    
  183.    
  184. ;;;(setq K(+ k 1 ))
  185. ;;;  (setq K(+ k 0 ))
  186.   
  187. ;;;)
  188. (setq pzx (+(car pt ) (* (- 105 43) bili)  )
  189. pzy (+(cadr pt ) (* 2 bili))
  190. ptx (-(car pt )(* 5 bili))
  191. pty pzy
  192. )
  193. ;画行
  194. (repeat (+ bc 20)
  195. (setq cir(list
  196. '(0 . "LINE");直线
  197. ;;;'(62 . 0);颜色
  198. (cons 8 "x_细实线")
  199. ;;;'(6 . "ByBlock");线形
  200. (cons 10(list ptx pzy));起点
  201. (cons 11(list (+ pzx (* 12 bili)) pzy));终点
  202. ))
  203. (setq pzy( - pzy (* 6 bili)))
  204. (entmake cir);创建直线
  205. )
  206. (setq pzy( + pzy (* 6 bili)))
  207. ;列宽调试数据
  208. ;;;(setq da1 10
  209. ;;;da2 33
  210. ;;;da3 56
  211. ;;;da4 67
  212. ;;;da5 91
  213. ;;;da6 0
  214. ;;;k 0
  215. ;;;)
  216. (setq da1  (* 10 bili)
  217. da2 (* 33 bili)
  218. da3 (* 56 bili)
  219. da4 (* 79 bili)
  220. da5 (* 91 bili)
  221. da6 0
  222. k 0
  223. )

  225. ;纵向画线，画列
  226. (repeat 5
  227. (setq k(+ k 1))
  228. (setq cir(list
  229. '(0 . "LINE")
  230. (cons 8 "x_细实线")
  231. ;;;'(62 . 153)
  232. ;;;'(6 . "ByBlock")
  233. ;;;(cons 10(list (+ ptx da6) pty))
  234. (cons 10(list (+ ptx da6) pty))
  235. (cons 11(list (+ ptx da6) pzy))
  236. ))
  237. (entmake cir)
  238. (cond
  239. ((= k 1)(setq da6 da1))
  240. ((= k 2)(setq da6 da2))
  241. ((= k 3)(setq da6 da3))
  242. ((= k 4)(setq da6 da4))
  243. ((= k 5)(setq da6 da5))
  244. ((= k 6)(setq da6 110))
  245. ;((= k 7)(setq da6 120))
  246. )
  247. )
  248. ;;;(command "_ucs" "n" WUS);还原坐标
  249. ;;;(setvar "osmode" buz)
  250.   (setvar "osmode" osm)
  251. (princ)
  252. )

  254. (defun csbzl ()
  255. (setq AX0 (list (car AX0 ) (-(cadr AX0 ) (* 6 bili)) )
  256. da1(list (car da1) (-(cadr da1)(* 6 bili)))
  257. da2(list (car da2) (-(cadr da2)(* 6 bili)))
  258. da3(list (car da3) (-(cadr da3)(* 6 bili)))
  259.       )
  260.   (princ)
  261. )

  263. (defun get_midpt (pt1 pt2)                ;子程序中带有两个自变量
  264.   (setq mx (/ (+ (car pt1) (car pt2)) 2))
  265.   (setq my (/ (+ (cadr pt1) (cadr pt2)) 2))
  266.   (list mx my)
  267. )

  269. (defun textKU (txt_name pt1 pt2)
  270. (entmakex (list '(0 . "TEXT")
  271.                 (cons 1 txt_name);;内容
  272.                 (cons 7  "汉字")
  273.                 (cons 8  "W_文字层")
  274.                 (cons 67 0);颜色
  275.                 (cons 10 pt1);第一对齐点
  276.                 (cons 11 pt2) ;;第二对齐点，72或73不为0才有意义
  277.                 (cons 40 (* bili 4.2));;字高
  278.                 (cons 41  0.7) ;文字宽度
  279.                 (cons 72 4);;水平文字对齐类型
  280.                                               )
  281. )
  282. ;;;  (princ)
  283.   )

  285. ;;;---------------------
  286. ;;;《伙计百科》版权所有。
  287. ;;;源地址：http://huojibk.com/2021/01/604.html
  288. ;;;版权声明：转载请附上博文链接！





评分

参与人数 1明经币 +1 收起 理由
bssurvey + 1 赞一个!

查看全部评分

回复

使用道具 举报

烟盒迷唇
发表于 2021-10-24 18:56:29 | 显示全部楼层
一大堆command，没心情看奥
回复 支持 反对

使用道具 举报

shcvip
 楼主| 发表于 2021-10-24 21:24:43 | 显示全部楼层
烟盒迷唇 发表于 2021-10-24 18:56
一大堆command，没心情看奥

已经调整，不用command.
回复 支持 反对

使用道具 举报

start4444
发表于 2021-10-24 21:27:34 | 显示全部楼层
把原代码发出来看看
回复 支持 反对

使用道具 举报

shcvip
 楼主| 发表于 2021-10-25 09:40:27 | 显示全部楼层
本帖最后由 shcvip 于 2021-10-25 09:41 编辑

在程序中，“;画行”  加入下面的程序，表格上移1mm，就可以解决了。(setq pty (+ pty bili ) pzy (+ pzy bili)) ;;2021.10.24.增加，表格一移1mm..
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-5-16 11:21 , Processed in 0.192046 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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