本帖最后由 林霄云 于 2014-5-7 22:04 编辑

标准化标注源码解析与测试——支持UCS，智能标注样式
自写完箍筋拉筋符号后——拉筋箍筋符号源码解析与测试（支持UCS、形式切换、智能比例、统一命令）
http://bbs.mjtd.com/forum.php?mo ... 193&fromuid=7303580内心无比空虚，我在结构专业标准化制图中越走越深，对于标注的标准化，我有了点想法。标注样式智能化，当然很多实现的思路，我想我的思路或许值得探讨。

调用函数DEA
  2. (defun C:dea()
  3. ;DE Advanced标注标准化命令
  4. ;Designed by 林霄云
  5. ;需要支持循环
  6. (while (setq pt1 (getpoint "\n第一点<exit>"))
  7. (setq pt2 (getpoint pt1  "\n第二点"))
  8. (setq self-ang (angle pt1 pt2))

  10. (setq a (* pi 0.5))

  12. (if (or (< (car pt1) (car pt2))
  13.     (and (= (car pt1) (car pt2))(< (cadr pt1) (cadr pt2)))
  14.     )
  15. (setq d (* 6 hnu:dimscale ))
  16. );if

  18. (if (or (> (car pt1) (car pt2))
  19.     (and (= (car pt1) (car pt2))(> (cadr pt1) (cadr pt2)))
  20.     )
  21. (setq d (* 8 hnu:dimscale ))
  22.    
  23.     );if      
  24.    
  25. (setq pt3 (polar pt2 (+ self-ang a) d))

  27. (command "DIMALIGNED" pt1 pt2 pt3)
  28. (princ)
  29. );while
  30. )
  31. (princ "\nDEA DEAdvanced标注命令加载成功 \nDesigned by 林霄云 2014年2月20日")
  32. (princ "\n顺时针标注在上，逆时针标注在下，scalesetup设置比例，快捷键scset，默认比例1：100")
  33. (princ)
主函数调用了一全局比例作为参数，因此，需要一个接口设置此全局比例。并且，对每次调用比例设置时，自动更改当前的标柱样式以匹配。
  2. (defun C:scalesetup ( / dimname temp-s temp-fac)
  3. ;返回值：标注比例设置，同时修改（无则生成）当前标注样式。
  4. ;Designed by 林霄云 2014年2月20日

  6. (princ "比例设置，为1：150时，输入150；1：100时，输入100")
  7. (princ (strcat "\n当前比例 " (itoa hnu:dimscale)))
  8. (initget 6)
  9. (setq  temp-s (getint (strcat "\n新比例<" (itoa hnu:dimscale) ">")))

  11. (initget 6)
  12. (setq temp-fac (getint "\n当前比例下，输入标注值为测量值的倍数<1>"))
  13. (if temp-fac
  14. (setq hnu:dimlfac temp-fac)
  15. (setq hnu:dimlfac 1)
  16. );if 输入处理
  17. (if  temp-s  ;处理默认，nil则不进行设置，是不行的。
  18. (progn
  19. (setq hnu:dimscale temp-s)
  20. (princ (strcat "\n当前比例设置为1:" (itoa hnu:dimscale)))  
  21. )
  22. );if 输入处理

  24. (if (/= hnu:dimlfac 1)
  25. (setq dimname (strcat "G_DS_" (itoa hnu:dimscale) "(x" (itoa hnu:dimlfac) ")" ));设置大样标注样式名称
  26. (setq dimname (strcat "G_DS_" (itoa hnu:dimscale)));设置一般图标注样式名称
  27. );修正标注样式名称

  29. (setq text-style "G_text");大家得修改这个，不提供接口，本人有函数生成。make_textstyle
  30. (make_dimstyle dimname hnu:dimscale (/ 1.0 hnu:dimlfac) text-style) ;1.0很重要。两者都是整数，则结果取整了。
  31. ;更改比例，同时设置标注样式。

  33. (princ)
  34. )
必须得注意到，全局比例和测量比例因子很重要。其皆作为标注样式名称的一部分，作为生成标注样式的参数。由为重要的是，作为全局变量保存。
自然需要生成标注样式代码make_dimstyle
  2. (defun make_dimstyle (dimname global-sc measure-sc text-style)
  3. ;返回值：生成标注样式，置为当前标注样式。
  4. ;Designed by 林霄云 2014年2月20日
  5. ;dimname 标注样式名称 global-sc全局比例因子 measure-sc测量比例因子 text-style标注文字样式
  6. (if (= (tblsearch "dimstyle" dimname) nil)
  7. （progn
  8. （……）;一系列的变量设置
  9.     (command "dimstyle" "s" dimname)
  10.     (princ (strcat "\n当前标准样式为" dimname))
  11.     );progn
  12.   (progn
  13.   (command "dimstyle" "r" dimname)
  14.   (princ (strcat "\n当前标准样式为" dimname))
  15.   )
  16. );if
  17.   );defun
结果：智能的设置标注样式，结合智能设置图层，像标准化更进一步。另详附图





网友答: 楼主，可否设置成全局比例为带小数的？

网友答: 还不错，希望楼主多研发些好用的插件

网友答: 补充一下，使用command line时，需要取消捕捉，修改代码如下
原代码
  2. (command "DIMALIGNED" pt1 pt2 pt3)
修改为
  2. (setq oldosmode (getvar "osmode"))
  3. (setvar "osmode" 0)
  4. (command "DIMALIGNED" pt1 pt2 pt3)
  5. (setvar "osmode" oldosmode)
及时设置，这样是可以避免捕捉丢失。

网友答: 可惜没币了，下载不了

网友答: 版主可否送我一个币呀！！

网友答: dear sir,

add dialog box for scale its convenient  

网友答:
sachindkini 发表于 2014-2-21 20:33
dear sir,

add dialog box for scale its convenient

Thanks for your interest.and I am sorry I can't agree with you.reasons as follows,I do like the version posted .it is simple,left-hand hotkey operations,no mouse location,less harm to eyes .and most of all,it can be downloaded and modified by  gifted guys  who ,I guess ,are paid more!

网友答: 林大师，乐于助人，赞一个！能帮我解决这个问题吗？http://bbs.mjtd.com/thread-109252-1-1.html

网友答: 很不错！！！！

网友答: 有错误，用不了

网友答:
myjping 发表于 2014-2-25 10:03
有错误，用不了

不会有错误的。有段代码还是贴出来吧！自行修改。必须确保文字样式的存在，否则标注样式不能生成。（至于补充在哪里，我就不多说了）
  2. (defun make_textstyle( stylename )
  3. ;stylename 字体样式名称
  4. ;(setq stylename "G_hy_text")
  5. (if (null (tblobjname "STYLE" stylename) )
  6. (entmake (list '(0 . "STYLE")
  7.         '(100 . "AcDbSymbolTableRecord")
  8.         '(100 . "AcDbTextStyleTableRecord")
  9.         '(70 . 0)
  10.                 '(42 . 300) ;默认字高
  11.                 '(3 . "hysz.shx") ;此处自行修改
  12.                 '(4 . "hyfs.shx") ;此处自行修改
  13.         (cons 2 stylename)
  14.                 '(40 . 0.0) ;字高
  15.                 '(41 . 0.7) ;字宽比例
  16.                 '(50 . 0.0) ;默认旋转角度
  17.         )
  18.                 )
  19. );if
  20. )
  • 上一篇：钣金明装箱LISP代码分享
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025