统计矩形长度、宽度、总长、面积并编号制表（第二版）

qiaojingjun

强力点赞哈哈哈

7762777

数据统计类的插件，报价可以用

hn10183051

看看！！！！！！！！！

yia

感谢楼主分享

wgfwad

谢谢分享。。。。。。。。。

lauyik

谢谢分享

liutongsz

感谢分享,谢谢楼主啊，感谢

GAOMINISM

感谢楼主分享

GAOMINISM

请教版主 加载了代码 ，将？替换成了""，执行XDTB_TJRec还是未知命令，操作错误在哪里啊

GAOMINISM

请教版主 加载了代码 ，将？替换成了""，执行XDTB_TJRec还是未知命令，操作错误在哪里啊

GAOMINISM

我这边的问题如下  显示语法错误

命令: DEFUN 语法错误: ("XD::Polyline:IsRectang" (E "/" PTS "p1" P2 "p3" P4) "" (IF
"(and" (= "(xdrx_getpropertyvalue" E "" ISA ")" "AcDbPolyline") "" "" "" "" ""
"(xdrx_setvar" "entmaketoge" "1)" "" "" "" "" "" (SETQ "pts"
(xdrx_geom_searchoutline "e))" "" "" "" "" "" (SETQ "pts" (xdrx_getsamplept
"(car" PTS))) "" "" "" "" "" "(=" (LENGTH "pts)" 5) "" "" "" "" "" "(mapcar"
(QUOTE SET) "'(p1" P2 "p3" P4) "pts)" "" "" "" "" "" (EQUAL "(distance" P1
"p3)" (DISTANCE "p2" P4) "1e-3)" "" "" "" "" "" (EQUAL "(xdrx_line_midp" P1
"p3)" (xdrx_line_midp "p2" P4) "1e-3)" "" "" ")" "" "(list" P1 "p2" P3 "p4)"
"))(defun" C:XDTB_TJREC "(/" "" "" "" "" "ar" "" AR1 "" DATA "e" "" "i" "" ""
"" "" "" KEY "" "" "" "" L "" "" L1 "" "" "" "" "" L2 "" "" "" "" "" "" "" ""
"" "" "len" "len1" LST "" NUM "" "" "" "" "nums" P1 "" "p2" "" "" "" "p3" "" PT
"" "" "" "" "" PTS "" "" "" "" "" "" "" "" "" "" "scl" "ss" "" TB "" "tlen"
TXTH "val" "w" "" "" "" "x" "" "y" "" "" "" "" "els" "" "" "" "" "" "" "" "" ""
"" VAL "" VAL1 "val2" VAL3 "" "" "" "" "" "" "" "" "" "") "" (DEFUN "_process"
(E) "" "" (IF "" "" "" "" (XD::POLYLINE:ISRECTANG "e)" "" "" "(progn" (SETQ
"pts" (xdrx_getpropertyvalue "e" "vertices") "" "" "" "" "" "" "" "" "" "p1"
"(car" PTS) "" "" "" "" "" "" "" "" "" "p2" "(cadr" PTS) "" "" "" "" "" "" ""
"" "" "p3" "(caddr" PTS) "" "" "" "" "" "" "" "" "" "l1" "(distance" P1 "p2)"
"" "" "" "" "" "" "" "" "" L2 "" (DISTANCE "p2" P3) "" "" "" "" "" "" "" "" ""
"l" "" (LIST "l1" L2) "" "" "" "" "" "" "" "" "" "l" "" (VL-SORT "l" (QUOTE
(LAMBDA "(x" Y)) "(>" X "y)))" "" "" "" "" "" "") "" "" "" "" "" "" "(list" E
"" "" "" "" "" "" "" "" "" "(rtos" (CAR "l)" 2 "#xd_var_rectang_tol)" "" "" ""
"" "" "" "" "" "" (RTOS "(cadr" L) "2" #XD_VAR_RECTANG_TOL) "" "" "" "" "" ""
")" "" "" ")" "" ")" ")" "(defun" _KEYWORD "(key)" "" "(cond" "" "" "((=" KEY
"" D ")" "" "" "" (IF "(setq" VAL "(getint" (xdrx_prompt "" "" "" "" "" "" ""
"" "" "" "" "" "" "" "" "" \\N保留小数位数< "" "" "" "" "" "" "" "" "" "" "" "" "" ""
"" "" #XD_VAR_RECTANG_TOL "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" >: ""
"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" T "" "" "" "" "" "" "" "" "" "" ""
"" "" "" ")" "" "" "" "" "" "" "" "" "" "") "" "" "" "" "" ")" "" "" "" ""
(SETQ "#xd_var_rectang_tol" VAL) "" "" "" ")" "" "" ")" "" "" "((=" KEY "" H
")" "" "" "" (IF "(setq" VAL "(getreal" (xdrx_prompt "" "" "" "" "" "" "" "" ""
"" "" "" "" "" "" "" "\n表格字高<" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
#XD_VAR_RECTANG_TXTHEIGHT "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ">:"
"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" T "" "" "" "" "" "" "" "" "" ""
"" "" "" "" "") "" "" "" "" "" "" "" "" "" "" ")" "" "" "" "" "") "" "" "" ""
"(setq" #XD_VAR_RECTANG_TXTHEIGHT "val)" "" "" "") "" "" "") "" "" "" ((= "key"
"T") "" "" "" "(if" (SETQ "val" "" "" "" "" "" "" "" "" "(getint" "" "" "" ""
"" "" "" "" "" "(xdrx_prompt" "" "" "" "" "" "" "" "" "" "" "" \\N排序方向[X最小Y最小
(0) /X最大Y最小 (1) /X最小Y最大 (2) /X最大Y最大 (3) "" "" "" "" "" "" "" "" "" "" ""
"#xd_var_sort_direc" "" "" "" "" "" "" "" "" "" "" "" >: "" "" "" "" "" "" ""
"" "" "" "" "t" "" "" "" "" "" "" "" "" "" ")" "" "" "" "" "" "" "" "" ")" ""
"" "" "" "") "" "" "" "" "(setq" #XD_VAR_SORT_DIREC "val)" "" "" "") "" "" "")
"" "" "" ((= "key" "E") "" "" "" "(if" (SETQ "" "" "" "" "" "" "val" (GETDIST
"" "" "" "" "" "" "" "" "" "(xdrx_prompt" "\n排序精度<" "#xd_var_global_tol" ">:"
"t)" "" "" "" "" "" "" "" "") "" "" "" "" "" ")" "" "" "" "" (SETQ
"#xd_var_global_tol" VAL) "" "" "" ")" "" "" ")" "" "" "((=" KEY "" Q ")" "" ""
"" (IF "(/=" "" "(setq" VAL "(getstring" (xdrx_prompt "" "" "" "" "" "" "" ""
"" "" "" "" "" "" "" "" "\n编号前缀<" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
"" #XD_VAR_GLOBAL_PREFIX "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ">:"
"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" T "" "" "" "" "" "" "" "" "" ""
"" "" "" "" "") "" "" "" "" "" "" "" "" "" "" ")" "" "" "" "" "")) "" "" "" ""
"(setq" #XD_VAR_GLOBAL_PREFIX "val)" "" "" "") "" "" "") "" "" "" ((= "key"
"V") "" "" "" "(if" (SETQ "val" (GETINT "(xdrx_prompt" "" "" "" ""
"" "" "" "" "" "" "" "" "" "" "" "\n起始编号<" "" "" "" "" "" "" "" "" "" "" "" ""
"" "" "" "#xd_var_global_startno" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
">:" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "t" "" "" "" "" "" "" "" ""
"" "" "" "" "" "") "" "" "" "" "" "" "" "" "" "" ")" "" "" "" "" "") "" "" ""
"" "(setq" #XD_VAR_GLOBAL_STARTNO "val)" "" "" "") "" "" "")
命令:

的大

我看一下，应该挺有用的

xfange

有异形件的最大外形尺寸没有

jgegd5

楼主牛逼。。

richlin001

感謝樓主的分享