找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 980|回复: 0

[求助] [求助]:请大虾帮我改一下线性尺寸标注的代码!

[复制链接]
发表于 2008-2-16 16:59:04 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
这是我的尺寸标注代码,是对齐方式标注的,但是改不出线性标注的,将70号改成32根本不能用。清哪位大虾帮我改一下。

  1.   [FONT=courier new]
  2. ;;;dim_pt1为起始点,dim_pt2为终点,ctrl_pt为拖曳点
  3. ;;;调用实例(dim_draw '(1500 1500 0) '(3000 1500 0) '(0 1500 0))
  4. (defun dim_draw        (dim_pt1 dim_pt2 ctrl_pt /)
  5.   (entmake
  6.     (append '((0 . "DIMENSION")
  7.               (100 . "AcDbEntity")
  8.               (8 . "0")
  9.               (100 . "AcDbDimension")
  10.              )
  11.             (list (cons 3 (strcat "Dim_" (rtos scale 2 2)))
  12.                   (cons 10 (trans ctrl_pt 1 0))
  13.             )
  14.             '((11 0 0 0)
  15.               (70 . 33)
  16.               (1 . "")
  17.               (100 . "AcDbAlignedDimension")
  18.              )
  19.             (list
  20.               (cons 13 (trans dim_pt1 1 0))
  21.               (cons 14 (trans dim_pt2 1 0))
  22.             )
  23.     )
  24.   )
  25. )


  26.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 22:52 , Processed in 0.176304 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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