QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 4133|回复: 4
收起左侧

[已答复] 用lisp语言设置AutoCAD2004的标注子样式?

[复制链接]
发表于 2009-8-5 21:42:49 | 显示全部楼层 |阅读模式 来自: 中国江西宜春

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
谁能用lisp语言设置AutoCAD2004的标注子样式吗?期待。。。。。。
发表于 2009-8-6 07:09:23 | 显示全部楼层 来自: 中国
先设置相关的系统变量,再用“-dimstyle”命令保存,例如
  1. ) R4 u2 v  m; `5 w, U
  2. (defun c:AAA()6 d+ {5 l3 T# i" {( {
  3.   (setvar "DIMBLK1" "CLOSEDBLANK")
    / C6 c3 \- x. D! ?5 {
  4.   (setvar "DIMSAH" 1)
      O5 j# v( `' D$ V4 q
  5.   (setvar "DIMDEC" 4)6 P: Y7 \, h0 l- W
  6.   (command "-dimstyle" "s" "ABCD"). R. C; t* r1 m
  7.   (princ)" o  y1 L+ f. _5 E: j# E: ]$ J2 C" w- ~
  8. )5 l9 W+ G. W- w" k; r- |- G0 o0 h+ K
复制代码
系统变量名称和值请查看CAD帮助文件,有关标注样式的系统变量都是用“DIM”开头的
 楼主| 发表于 2009-8-6 21:43:50 | 显示全部楼层 来自: 中国江西宜春
谢谢楼主的关注。
* N( ~1 e- m* F% P! ~7 K
( q& P; a1 H$ r* k: b1 U1 M在CAD中一种标注下可以有很多子样式,在同一种标注样式下像线性标注、半径标注、直径标注等都可以有不一样的设置。如果我选择ABCD样式标直径文字对齐是ISO标准,经过设置子样式后,我同样选择ABCD样式标距离时文字对齐可以是与尺寸线对齐,就是不知道那样的程序要怎么写。
* Y# z6 ]0 p& Y4 Y" ?) b; @, U
' A4 b' L% U# B4 }  x我想用下面的程序在cad2004中设置标注子样式* W, }8 q' x7 J4 Q+ S, i
! C; A: X$ R' D1 H
(setvar "DIMTOH" 0)
' c& H* X" j  E4 j9 V( J& \5 l. Z( P6 B& ~. X
(command "dimstyle" "s" "样式一")) M& ~" e& {, D+ l+ e# y" A5 V

& d$ |9 g$ i, _6 M& v(setvar "DIMTOH" 1)/ @+ {  B- i# j

, z1 S/ p2 e3 Q$ C' h(command "dimstyle" "s" "样式一:直径")) r; E& Q3 B6 u+ i
. ]4 R5 r4 E( W9 Q& r6 w& C
cad提示的是 样式名无效 0 q' C/ _4 G$ F" O4 k( h. B

4 O4 V/ G7 S  j( U) ^8 I* j. w. v# S            输入新标注样式名或 [?]:
! |$ v7 k- D# H* e0 ^7 `8 g6 [& J3 l" {0 b9 q" d+ d4 o0 e
! K1 N/ ]: f/ s- `
因为如用对话框设置标注子样式时看它新样式名中显示的是 样式一:直径 ,于是就用:冒号试了一下,但出现了上面的情况,不清楚什么原因: y4 [  R* h5 d  P3 p3 _1 `, |

( ^! w0 f' Z$ M3 c' ?7 K哪个高手解决一下这个问题啊,拜谢了
发表于 2009-8-8 06:23:01 | 显示全部楼层 来自: 中国
半角冒号是非法字符,不能用来给对象命名
 楼主| 发表于 2009-8-12 22:32:33 | 显示全部楼层 来自: 中国江西宜春
这个问题谁能关注一下啊,我查了好久,看来AutoCAD2004中只能用对话框设置二次标注样式了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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