请教标注函数相关问题
(defun DIM-L( fp1 fp2 fp3 fp5 att btt ctt sca hh LL) ;线性尺寸标注函数扩充(command "ucs" "3" fp1 fp5 "")
(setq fp1 (trans fp1 0 1))
(setq fp2 (trans fp2 0 1))
(setq fp3 (trans fp3 0 1))
(if(and ( = btt "") (= ctt "" ) )
(command "setvar" "dimtol" "off" )
(progn (command "setvar" "dimtol" "on" )
(command "setvar" "dimtfac" 0.7)
(command "setvar" "dimtolj" 1)
(command "setvar" "dimtp" btt)
(command "setvar" "dimtm" ctt)
)
)
(command "setvar" "dimlfac" (/ 1.0 sca))
(command "setvar""dimdec" 3)
(command "setvar" "dimzin" 8)
(command "setvar" "diriitclec" 3)
(command "setvar" "dimtxt" hh)
(cond (( = LL 1) (command "dimlinear" fp1 fp2 "t" "%%c" fp3)) ;标注直径长度尺寸
(( = LL 2) (command "dimlinear" fp1 fp2 "t" att fp3)) ;标注替换尺寸如标倒角
(( = LL 3) (command "dimlinear" fp1 fp2 fp3))
)
(command "setvar" "dimlfac" 1)
(command "setvar" "dimtol" "off" )
(command "ucs" "")
)
我用上面标注函数标注下面带公差的直径尺寸时，只出现图示结果，没有基本尺寸和偏差，想请教下是什么原因
(setq bt 1.2
ct 1.2
pda0 (150.0 260.0)
pzz9 (155.0 243.3)
fp3 (polar pzz9 0 30)
)
(DIM-L pda0(polar pda0 (* 1.5 pi)80)fp3 (polar pda0 (/ pi 2) 5) "" bt ct 1 "3.5" 1);
用cond,LL=1,只做一件事 lsjj 发表于 2014-5-16 10:53 static/image/common/back.gif
用cond,LL=1,只做一件事
我用LL=1,就是想标注带公差的直径长度啊，这样达不到目的吗？能能请教下该怎么改呢 zhibeisha 发表于 2014-5-16 14:16 static/image/common/back.gif
我用LL=1,就是想标注带公差的直径长度啊，这样达不到目的吗？能能请教下该怎么改呢
我的标注应该是Φ80±1.2 zhibeisha 发表于 2014-5-16 14:20 static/image/common/back.gif
我的标注应该是Φ80±1.2
我刚试试改成这个(cond (( = LL 1) (command "dimlinear" fp1 fp2 "t" "%%c<>" fp3)) ;好像可以了
谢谢你的帮助 楼主，我也想用标注之后直接显示标注加公差的插件，能把你的程序发给我一份么278289314@qq.com谢谢
页:
[1]