[编程申请]：市政管径标注及晓东工具箱BUG。

six

默认值 400－3 （管径 － 坡度）;
仅输入管径时输入 100,
仅输入坡度时输入 ,5
$XDTB_GLOBAL_SCALE 出图比例默认1
|;

($xdrx_load "xdlsp.lsp")
(if (not $XDTB_GLOBAL_SCALE)
(setq $XDTB_GLOBAL_SCALE 1)
)
(if (not $XDTB_DMSTRING)
(setq $XDTB_DMSTRING "400-3")
)
(defun c:XDTB_DMpipeline (/ oldos tf pt1 pt2 dis str string pmid pt ang1)
(setq tf t)
(setq oldos (getvar "osmode"))
(xdrx_begin)
(xdrx_ucson)
(xdrx_sysvar_push "osmode")
(setvar "osmode" oldos)
(while tf
(if (setq pt1 (getpoint "\n起 点: "))
(progn
(setq pt2 (getpoint pt1 "\n终 点: "))
(setq dis (rtos (distance pt1 pt2) 2 1);; 长度 0 小数点后位数
pmid (xdrx_midp pt1 pt2)
ang1 (angle pt1 pt2)
)
(if (> ang1 pi)
(setq ang1 (- ang1 pi))
)
(setq pt (polar pmid
(if (> ang1 _pi2)
(- ang1 _pi2)
(+ ang1 _pi2)
)
0
)
)
(prompt (strcat "\n管长 = " dis))
(setq str
(getstring (strcat "\n[管径-坡度] )
)
(cond
((= (xdrx_string_findoneof str ",") 0)
(setq $XDTB_DMSTRING
(strcat
(car (xdrx_string_tok $XDTB_DMSTRING "-"))
"-"
(xdrx_string_trimleft str ",")
)
)
(setq
string (strcat
"D"
(car (xdrx_string_tok $XDTB_DMSTRING "-"))
"-"
dis
"-"
(xdrx_string_trimleft str ",")
)
)
)
((> (xdrx_string_find str ",") 0)
(setq $XDTB_DMSTRING
(strcat
(xdrx_string_trimright str ",")
"-"
(last (xdrx_string_tok $XDTB_DMSTRING "-"))
)
)
(setq
string
(strcat
"D"
(xdrx_string_trimright str ",")
"-"
dis
"-"
(last (xdrx_string_tok $XDTB_DMSTRING "-"))
)
)
)
((= str "")
(setq
string (strcat "D"
(xdrx_string_replace
$XDTB_DMSTRING
"-"
(strcat "-" dis "-")
)
)
)
)
(T
(setq $XDTB_DMSTRING str)
(setq
string (strcat "D"
(xdrx_string_join
(xdrx_string_tok $XDTB_DMSTRING "-")
(strcat "-" dis "-")
)
)
)
)
)
;(setvar "osmode" 0)
(command ".text"
"j"
"bc"
"_non"
pt
(* 1 $XDTB_GLOBAL_SCALE)
($xdlsp_rtd ($xdlsp_angle_format ang1))
string
)
)
(setq tf nil)
)
)
(xdrx_sysvar_pop)
(xdrx_ucsoff)
(xdrx_end)
(princ)
)
但是运行时经常有BUG，比如下面附件的图就不能用。而且在UCS里面用不了，只能在世界坐标系里面用。麻烦斑竹修改一下。另外有什么方便的方法修改$XDTB_GLOBAL_SCALE 变量？运行环境：cad2002 ,工具箱0.29
另外，坐标标注的坐标移位及坐标移动在用户坐标系统里面使用有问题，大家试一下就知道。另外文字工具箱里面的随线平齐在用户坐标系里面使用也有问题。

ydf7332462

附件在哪?

six

另外我发现晓东工具箱很多命令都会把自动捕捉关掉？？？！！