请教标注函数相关问题

zhibeisha

(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);

lsjj

用cond,LL=1,只做一件事

zhibeisha

lsjj 发表于 2014-5-16 10:53
用cond,LL=1,只做一件事

我用LL=1,就是想标注带公差的直径长度啊，这样达不到目的吗？能能请教下该怎么改呢

zhibeisha

zhibeisha 发表于 2014-5-16 14:16
我用LL=1,就是想标注带公差的直径长度啊，这样达不到目的吗？能能请教下该怎么改呢

我的标注应该是Φ80±1.2

zhibeisha

zhibeisha 发表于 2014-5-16 14:20
我的标注应该是Φ80±1.2

我刚试试改成这个(cond (( = LL 1) (command "dimlinear" fp1 fp2 "t" "%%c<>" fp3)) ;好像可以了
谢谢你的帮助

真逍遥子

楼主，我也想用标注之后直接显示标注加公差的插件，能把你的程序发给我一份么278289314@qq.com谢谢