明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 150543|回复: 606

[源码] 增强标注-不同图框自动更改全局比例

    [复制链接]
发表于 2013-1-13 12:54:48 | 显示全部楼层 |阅读模式
本帖最后由 SunSpring 于 2013-9-10 16:52 编辑

用了AutoCAD Mechanical一段时间,觉得增强标注不错,在论坛上没找到相关程序,于是自己用Lisp写了一个.
支持dli,dra,dal,ddi,dor,dan等常用标注命令.在不同比例的图框中自动切换全局比例.
图框名为GB_A*,可以在程序中修改.比例根据块比例得到.




赠送:选图框自动根据图框比例修改图框内全部标注全局比例
增加对文字高度,线型比例,填充线比例支持.






  1. (defun c:ds ( / entdata entgrp entname n ptlist scale)
  2.   (prompt "根据图框比例自动改变图框内所有标注全局比例")
  3.   (if (setq entname (entsel))
  4.     (if (= "INSERT" (cdr (assoc 0 (entget (car entname)))))
  5.       (progn
  6.         (setq ptlist (ax:getboundingbox (car entname)))
  7.         (setq entgrp (ssget "W" (car ptlist) (cadr ptlist) '((0 . "DIMENSION"))))
  8.         (setq entdata (entget (car entname)))
  9.         (setq scale (cdr (assoc 41 entdata)))
  10.         (repeat (setq n (sslength entgrp))
  11.           (setq entname (ssname entgrp (setq n (1- n))))
  12.           (vla-put-ScaleFactor (vlax-ename->vla-object entname) scale)
  13.         )
  14.       )
  15.     )
  16.   )
  17.   (princ)
  18. )




本帖子中包含更多资源

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

x

点评

谢谢大侠分享学习了!!  发表于 2017-3-12 22:56
要改进呀,当图框的边界没有显示在黑屏时,标注出来的比例不对  发表于 2013-1-15 18:17

评分

参与人数 4明经币 +4 收起 理由
趣意人生 + 1 赞一个!
yxl88168 + 1 很给力!
wayne_myles + 1 很给力!
lucas_3333 + 1 很赞的说!希望楼主分享更多的精品

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2013-1-19 18:23:44 | 显示全部楼层
总感觉这样不好,标注样式的全局比例一时一个样,全变了,当别人没有这个程序,人家改图的时候变得困难,最起码得建个村注样式,全局比例就是固定的那个(不能把某个标注样式,全局比例有好几个吧),不能方便自己,为难别人呀,人家会说这是垃圾图的。(另外,楼主后面那个程序不会用,出个GIF吧)

点评

这话说的对,我的想法是可否自动对应每个图框比例建一个标注样式,然后到不同图框时自动转到对应比例的标注样式,这样就方便别人没有这个软件时,也能改图  发表于 2014-10-19 00:27
回复 支持 2 反对 0

使用道具 举报

发表于 2013-3-15 11:23:04 | 显示全部楼层
楼主可以考虑研究一下“注释性”,配合"布局"  标注、文字、引线、线条的比例问题都不是问题了
回复 支持 1 反对 0

使用道具 举报

发表于 2024-4-20 11:58:52 | 显示全部楼层
本帖最后由 zhangrunze 于 2024-4-20 12:02 编辑
huxu823 发表于 2024-4-20 09:54
我找到原因了,标注--文字--文字外观--文字样式里的字高必须设置成0,否则标注随图框变化时,字高不变!

不懂怎么加~
不知道这个是不是~
先贴下~

  1. (defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)
  2.   (setq RValue(vl-catch-all-apply  '(lambda()
  3.     (vla-put-Height
  4.       (vla-item
  5.       (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))
  6.       TextStyles
  7.       )
  8.       Height
  9.     )
  10.   )))
  11. (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)  RValue);返回值
  12. )


发表于 2013-1-13 13:11:06 | 显示全部楼层
不同比例等于缩放图块比例?
 楼主| 发表于 2013-1-13 13:18:09 | 显示全部楼层
hao3ren 发表于 2013-1-13 13:11
不同比例等于缩放图块比例?

图框比例就等于图框块缩放比例.
发表于 2013-1-13 14:36:32 | 显示全部楼层
感觉不错  下来学习
发表于 2013-1-13 16:28:41 | 显示全部楼层
不错,下载看看!
发表于 2013-1-13 16:32:26 | 显示全部楼层
楼主,能不能改下:套图库后自动缩放原有尺寸比例?
发表于 2013-1-14 09:39:47 | 显示全部楼层
留个脚印。。
发表于 2013-1-14 12:33:53 | 显示全部楼层
我试了怎么不成功?
 楼主| 发表于 2013-1-14 13:04:57 | 显示全部楼层
长风(尚品) 发表于 2013-1-14 12:33
我试了怎么不成功?

请注意一下块名是否和程序内的一致,如不一至,请更改程序或你的块名.图框块名程序内为"GB_A*".
发表于 2013-1-14 14:43:31 | 显示全部楼层
bai2000 发表于 2013-1-13 16:32
楼主,能不能改下:套图库后自动缩放原有尺寸比例?

想法不错  全自动化了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 03:40 , Processed in 0.164540 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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