明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1713|回复: 6

有一个问题想请教飞哥

[复制链接]
发表于 2004-5-25 21:30:00 | 显示全部楼层 |阅读模式
我想用lisp新建一个标注样式如sw10,然后将该样式的文字样式修改为已有文字样式如sm,将标注比例设置为10,怎么样实现?我实在想不出来……
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2004-5-25 21:51:00 | 显示全部楼层
看帮助文件里的标注变量


本帖子中包含更多资源

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

x
发表于 2004-5-25 22:30:00 | 显示全部楼层
to spring:这样是不行的,,,,具体组码意义再去参考帮助文件中的DXF部分:
  1. (defun MakeDimStyle (Name TextStyle TextHeight DimScale / Dxf)
  2.    (setq Dxf '((0 . "DIMSTYLE")   (100 . "AcDbSymbolTableRecord")
  3.              (100 . "AcDbDimStyleTableRecord") (70 . 0) (43 . 3.75)
  4.              (73 . 0) (74 . 0) (77 . 1) (78 . 8) (141 . 2.5)
  5.              (143 . 0.0393701) (171 . 3) (172 . 1) (271 . 2)
  6.              (272 . 2) (274 . 3) (278 . 44) (283 . 0) (284 . 8)))
  7.    (setq Dxf (append Dxf (list
  8.          (cons 2 Name)
  9.          (cons 140 TextHeight)
  10.          (cons 40 DimScale)
  11.          (cons 41 TextHeight)
  12.          (cons 42 (/ TextHeight 4.0))
  13.          (cons 44 (/ TextHeight 2.0))
  14.          (cons 147 (/ TextHeight 4.0))
  15.          (cons 340 (tblobjname "style" TextStyle)))))
  16.    (entmake Dxf)
  17. )
  18. (defun EditDimStyle (Name / dimst)
  19.    (setq dimst (entget (tblobjname "dimstyle" Name)))
  20.    (setq dimst (subst (cons 41 15.0) (assoc 41 dimst) dimst))
  21.    (entmod dimst)
  22. )
 楼主| 发表于 2004-5-25 22:47:00 | 显示全部楼层
多谢飞哥,我再仔细琢磨一下,谢谢……
发表于 2004-5-25 22:49:00 | 显示全部楼层
如果你的当前标注型式合适,以下三句就可以了 (SETVAR "DIMTXSTY" "SM")
(SETVAR "DIMSCALE" 10)
(COMMAND "-DIMSTYLE" "S" "SW10")
 楼主| 发表于 2004-5-26 12:17:00 | 显示全部楼层
多谢……
发表于 2004-5-26 12:41:00 | 显示全部楼层
meflying发表于2004-5-25 22:30:00to spring:这样是不行的,,,, 具体组码意义再去参考帮助文件中的DXF部分: (defun MakeDimStyle (Name TextStyle TextHeight DimScale / Dxf...

不试不知道,一试还真的不行
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-28 06:26 , Processed in 0.179415 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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