高手请帮忙在这个程序加个功能

A云

这是个动态查询的程序，想在里面加上一个可以查闭合多段线周长的功能，显示出周长的长度，还显示一个周长乘以可以输入的一个数的等值，这样方便用来查线割的价钱，有哪位高手可以加上去的请帮帮忙，谢谢了
( w9 ~2 q9 M: v' B; ]
9 b1 Q% v9 R" G; _" I1 ?9 o

5 d6 y3 t0 C- B, g3 @3 @8 V8 t  T(defun C:abc(/ myerr dxf toang fx add_solid add_text dis olderr oldos oldfill ss pd gr pt ent entold)
5 K1 a7 I' Y, @1 Z+ q: n1 J                                                  ；；输入一个实数
' w* y& L( o. C- l
/ N. l% G' [: N- O(defun myerr(msg)
( a0 ^) v) O' Q(setq *error* olderr)
(command "_.undo" "_b")
(princ)
)
(defun dxf(ent i)
. j/ O/ o! ], M) ^  X( `  f(if (= (type ent) 'ename)
(setq ent (entget ent))
6 \: ^- q" J7 ~& O/ `)
1 q+ W/ o' S; c8 `4 n(cdr (assoc i ent))
)
(defun toang(ang i)
+ L/ r2 y" u; F(if (= i 1)
+ U2 ?/ C" B. v(* ang (/ 180 pi))
7 ?# B* D3 ]. B! Z(* ang (/ pi 180))
+ f( z7 x7 H$ r/ t# r)
)
$ C( N, q  |$ `6 K(defun fx(ang)
(cond
((>= (/ pi 2) ang 0) (list pi (+ pi (/ pi 2)) 1))
9 Z+ y/ ?$ U! K/ ^((>= pi ang (/ pi 2)) (list 0 (+ pi (/ pi 2)) 1))
0 d" r) m0 T% n, m9 t0 v6 b((>= (+ pi (/ pi 2)) ang pi) (list 0 (/ pi 2) 0))
" U+ b5 d4 G- f# Z( `* q7 Y((>= (* 2 pi) ang (+ pi (/ pi 2))) (list pi (/ pi 2) 0))
)
3 `/ {$ |0 n7 O* }  ]# T; j" C)
(defun add_solid(p1 p2 p3 p4)
7 X+ C- _9 H2 F(entmakex (list (cons 0 "SOLID") (cons 100 "AcDbEntity") (cons 62 1) (cons 100 "AcDbTrace")
8 m4 F7 ]2 i& I# Y5 f8 _3 ^/ A(cons 10 p1) (cons 11 p2) (cons 12 p3) (cons 13 p4)
4 U  m+ Z6 R6 F)
)
)
(defun add_text(pt h ang txt style jus)
/ D9 ]  a- L4 U8 w) q& @) U(entmakex (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 62 2) (cons 100 "AcDbText") (if (= jus 0) (cons 10 pt) (list 10 0.0 0.0 0.0)) (cons 40 h)
(cons 1 txt) (cons 50 ang) (cons 7 style) (cons 72 (cond ((= jus 0) 0) ((= jus 1) 1) ((= jus 2) 1) ((= jus 3) 2))) (if (= jus 0)
(list 11 0.0 0.0 0.0) (cons 11 pt)) (cons 100 "AcDbText") (cons 73 (cond ((= jus 0) 0) ((= jus 1) 2) ((= jus 2) 3) ((= jus 3) 2)))
)
+ s- e% I" B) j* A- I. _1 o) ^8 G% t)
; E+ z+ g6 g8 E8 ]4 _+ w)
(defun dis(ent / obj laynm name st1 st2 st3 lst h ang n)
(setq obj (vlax-ename->vla-object ent))
(setq laynm (strcat "图层:" (dxf ent 8)) name (dxf ent 0))
(cond
((= name "3DFACE")
(setq lst (list "【三维面】" laynm))
! ]. z) u4 B/ S' m% J)
+ R6 }6 ~6 V+ @((= name "3DSOLID")
(setq lst (list "【三维实体】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
1 F7 S. c4 B# o# w3 M)
; ~6 W1 i  u% X' J  ^% `6 y((= name "ACAD_PROXY_ENTITY")
(setq lst (list "【代理】" laynm))
8 G: E9 g% U: k5 V" D: n)
((= name "ARC")
0 f) l0 X8 j, m(setq lst (list "【圆弧】" laynm (strcat "半径:" (rtos (vla-get-radius obj) 2 0))
9 ]# l: L1 v! O! k(strcat "圆心角:" (rtos (toang (vla-get-TotalAngle obj) 1) 2 1) "度")
% r) |/ E8 u- u$ i. o' z(strcat "起始角:" (rtos (toang (vla-get-StartAngle obj) 1) 2 1) "度")
/ \" p0 k4 d! k1 y0 W* h  L(strcat "终止角:" (rtos (toang (vla-get-EndAngle obj) 1) 2 1) "度")
! H' |0 k3 _+ h' K0 {7 T, M- ~(strcat "总弧长:" (rtos (vla-get-ArcLength obj) 2 3))
! I( p+ M5 v1 A5 ]( K(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 3) "m㎡")
))
)
! I" F. F/ j4 m1 m) S((= name "ATTDEF")
(setq lst (list "【属性定义】" laynm (strcat "标签:" (vla-get-TagString obj))
# j7 K0 Q& G  N- R6 k: K' x(strcat "提示:" (vla-get-PromptString obj))
0 `/ l: ^1 ^9 ?, Q. J(strcat "缺省值:" (vla-get-TextString obj))
(strcat "高度:" (rtos (vla-get-Height obj) 2 0))
(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
  M9 }+ N1 P& P) [2 m7 {' `1 r(strcat "文字样式:" (vla-get-StyleName obj))
. x0 U+ w, O  M. K- l))
% j' r7 M6 i+ N( B$ y! q$ n)
((= name "ATTRIB")
4 R5 _5 X* m. J! G5 I# z" {3 b- \(setq lst (list "【属性】" laynm (strcat "标签:" (vla-get-TagString obj))
7 g& C# H* ~0 [. x! A  O* _(strcat "缺省值:" (vla-get-TextString obj))
) r* v- i9 Y+ Q* {: g# S(strcat "高度:" (rtos (vla-get-Height obj) 2 0))
(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
(strcat "文字样式:" (vla-get-StyleName obj))
))
, ]: o& k( w  B. N  |)
((= name "BODY")
% K8 i3 p3 b2 A$ Q; c0 {(setq lst (list "【体】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
5 X1 H9 d9 k$ s" q)
((= name "CIRCLE")
(setq lst (list "【圆】" laynm (strcat "半径:" (rtos (vla-get-radius obj) 2 0))
(strcat "周长:" (rtos (vla-get-Circumference obj) 2 0))
. c1 V& M# h/ d, R: |2 i, s(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")
8 r7 @1 P3 R6 i  v, o# @))
)
((= name "DIMENSION")
(setq lst (list "【尺寸标注】" laynm (strcat "标注样式:" (vla-get-StyleName obj))
6 a; a" o7 e. i0 V/ c* R& @) [4 U(strcat "文字样式:" (vla-get-TextStyle obj))
" J6 [# w; F" s* N5 [& D: [' ]# a5 m(strcat "文字高度:" (rtos (vla-get-TextHeight obj) 2 1))
(strcat "替带文字:" (if (= (dxf ent 1) "") "无" (dxf ent 1)))
))
  Y( u3 X* \5 K6 F- ^)
/ f5 O1 A# Q' s+ J% N((= name "ELLIPSE")
(setq lst (list "【椭圆】" laynm (strcat "长轴半径:" (rtos (vla-get-MajorRadius obj) 2 0))
(strcat "短轴半径:" (rtos (vla-get-MinorRadius obj) 2 0))
) ?! q  O2 O  I% T) r(strcat "起始角:" (rtos (toang (vla-get-StartAngle obj) 1) 2 1) "度")
: O6 G) d4 z  Z% m, Q3 Z$ u$ Z7 U$ x(strcat "终止角:" (rtos (toang (vla-get-EndAngle obj) 1) 2 1) "度")
(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")
4 b  k, v8 n4 g))
% J3 W- l( F: D9 M)
5 \4 J$ l0 C. j# ]) Q9 x((= name "HATCH")
(setq lst (list "【图案填充】" laynm (strcat "图案名称:" (vla-get-PatternName obj))
9 p. ]: M; C1 O( f(strcat "角度:" (rtos (toang (vla-get-PatternAngle obj) 1) 2 1))
6 ~3 e, q  U2 x& ^$ O(strcat "比例:" (rtos (vla-get-PatternScale obj) 2 0))
(strcat "关联:" (if (= (vla-get-AssociativeHatch obj) :vlax-false) "关闭" "打开"))
(strcat "填充样式:" (nth (vla-get-HatchStyle obj) '("普通" "外部" "忽略")))
* L8 v+ ]7 X7 X  Y))
)
+ S, V5 q$ Q0 ~' }% `((= name "IMAGE")
, F' y& K% Y  ]" ^+ ?9 X/ U(setq lst (list "【图像】" laynm (strcat "图像大小:" (rtos (car (dxf ent 13)) 2 0) "X" (rtos (cadr (dxf ent 13)) 2 0))))
)
((= name "INSERT")
1 Q4 v/ S% Y; r6 i. c, u(setq lst (list "【图块】" laynm (strcat "名称:" (dxf ent 2))
(strcat "X比例:" (rtos (dxf ent 41) 2 1))
(strcat "Y比例:" (rtos (dxf ent 42) 2 1))
(strcat "Z比例:" (rtos (dxf ent 43) 2 1))
* j1 {# P- O$ l5 O; |$ J(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
))
( V4 g. U5 K- p% U9 R)
((= name "LEADER")
" E( I0 B8 @3 X. C(setq lst (list "【引线】" laynm (strcat "标注样式:" (vla-get-StyleName obj))
4 i% K0 s. m  V) r5 O(strcat "引线类型:" (dxf (list (cons 0 "折线") (cons 1 "样条曲线")) (dxf ent 72)))
$ g, _$ m+ ?  O3 e/ w))
8 {; }! L% p( ~* a- k)
; w+ R' K$ a  {7 ?* h' I& i  g((= name "LINE")
(setq lst (list "【直线】" laynm (strcat "长度:" (rtos (vla-get-length obj) 2 0))
8 G' o1 _3 u7 {  W4 o0 V1 T. m+ _) \(strcat "角度:" (rtos (toang (vla-get-angle obj) 1) 2 1) "度")
))
)
/ L" m! \( K( d3 K. j: S((= name "LWPOLYLINE")
(setq lst (list "【多段线】" laynm (strcat "常量宽度:" (if (dxf ent 43) (rtos (vla-get-ConstantWidth obj) 2 0) "变宽度"))
(strcat "多段线:" (if (= (vla-get-Closed obj) :vlax-false) "不闭合" "闭合"))
5 ]* G  `2 z( t7 @/ I, o(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")

7 l# K4 _* p) ]4 e* L% {                                                           ;;加上一个可以查闭合多段线周长的功能,显示
9 ?2 y% q7 L: y) L4 O                             ;;周长乘以可以输入的一个数的等值,显示

A云

))
)
( [% b# a# e' o; o' h& ]. O3 l((= name "MLINE")
4 n, v* x3 i6 ~+ I8 e(setq lst (list "【多线】" laynm (strcat "多线样式:" (vla-get-StyleName obj))
(strcat "比例因子:" (rtos (dxf ent 40) 2 1))
0 E1 M  M8 y: P: Q3 N(strcat "对齐:" (nth (dxf ent 70) '("上" "零" "下")))
% f7 A+ ^  u4 L8 s* l6 P))
)
((= name "MTEXT")
(setq lst (list "【多行文字】" laynm (strcat "高度:" (rtos (vla-get-Height obj) 2 0))
) D8 V, \! _' ~1 O$ {: X2 G2 o: O(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
(strcat "样式:" (vla-get-StyleName obj))
))
)
8 L5 i) R3 {4 Q2 u((or (= name "OLEFRAME") (= name "OLE2FRAME"))
(setq lst (list "【OLE边框】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
)
, d' ~9 {+ {: t0 |$ v((= name "POINT")
& j7 X& T8 Q; U& f4 h$ Q% N. M(setq lst (list "【点】" laynm))
3 M* l3 i/ v3 _  [2 \)
((= name "POLYLINE")
(setq lst (list "【三维多段线】" laynm))
2 ~& J) n# \; G0 [4 e' t)
0 n: t) S+ q" i0 \3 ]((= name "RAY")
(setq lst (list "【射线】" laynm))
)
1 O! A: [4 K6 ^((= name "REGION")
1 I3 l1 N6 Z; E3 n(setq lst (list "【面域】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
)
0 @0 F$ u6 ~; P! h: f: i- N((= name "SHAPE")
2 m( Y  D# x, [) [# p& K(setq lst (list "【形】" laynm (strcat "高度:" (rtos (vla-get-Height obj) 2 0))
4 j! e& o: h, V7 @. k(strcat "宽度系数:" (rtos (vla-get-ScaleFactor obj) 2 1))
(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
))
)
((= name "SOLID")
(setq lst (list "【实体】" laynm))
" C$ K4 |: i0 D0 `3 u)
5 Y1 y- P. a' p1 R. \+ A, w2 w9 X((= name "SPLINE")
(setq lst (list "【样条曲线】" laynm (strcat "多段线:" (if (= (vla-get-Closed obj) :vlax-false) "不闭合" "闭合"))
(strcat "阶数:" (rtos (vla-get-Degree obj) 2 0))
(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")
! F6 N" }* ~5 t5 I" Q))
)
5 g4 C) i# h9 }: u. f% O((= name "TEXT")
(setq lst (list "【文字】" laynm (strcat "高度:" (rtos (vla-get-Height obj) 2 0))
% Q6 R( r, K( r2 w' w( Y(strcat "宽度系数:" (rtos (vla-get-ScaleFactor obj) 2 1))
; p0 g- N$ P! D0 H- y+ o) ]! X(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
(strcat "样式:" (vla-get-StyleName obj))
' |0 V3 v- ~/ m3 Z! t(strcat "对齐:" (nth (vla-get-Alignment obj) '("Left" "Center" "Right" "Aligned" "Middle" "Fit" "TopLeft" "TopCenter" "TopRight"
"MiddleLeft" "MiddleCenter" "MiddleRight" "BottomLeft" "BottomCenter" "BottomRight")))
))
8 M' }. u) h/ i2 A: e8 N9 x. r)
((= name "TOLERANCE")
; @% k( t: m2 y(setq lst (list "【公差】" laynm (strcat "标注样式:" (vla-get-StyleName obj))
" {0 c, L& o8 \8 W(strcat "文字样式:" (vla-get-TextStyle obj))
(strcat "文字高度:" (rtos (vla-get-TextHeight obj) 2 1))
7 m& G9 s: v! S))
) ~' X* o3 \: [1 O+ t0 y7 J5 P)
. ]3 ?: ?/ W; R& C9 j5 G$ k((= name "TRACE")
, C3 G$ L( z' N/ k8 s, e3 J(setq lst (list "【宽线】" laynm))
- w: C$ O0 I" k4 j; U)
1 [7 j1 p, W" t((= name "VERTEX")
' a8 G  {/ l$ m$ X) _(setq lst (list "【顶点】" laynm (strcat "起始宽度:" (rtos (dxf ent 40) 2 0))
. ]7 V. k$ z4 H- C/ _# o% K(strcat "结束宽度:" (rtos (dxf ent 41) 2 0))
; Z9 o) f; p4 k+ F# D8 P, A3 s& a: Q(strcat "凸度:" (rtos (dxf ent 42) 2 1))
))
. Z+ a) |3 U! M/ X4 A7 R! t% r3 R)
2 S6 D& Y' J1 w5 T3 [0 y; B+ n((= name "XLINE")
(setq lst (list "【构造线】" laynm))
)
(T
# H  N6 c; h4 [: m; y(setq lst (list "【未知对象】" laynm))
/ ?, W, i" ?- k$ ]! m1 y+ s( s)
  J, b" Q- I& N( H3 ~)
(setq ss (ssadd) h (/ (getvar "viewsize") 50))
# h. R% z+ W# d; a1 q(setq ang (fx (angle (getvar "viewctr") pt)))
(setq n (* 1.4 (1+ (/ (apply 'max (mapcar 'strlen lst)) 2.0))))
3 H0 m- y- i% I  _5 g(ssadd (add_solid pt (polar pt (car ang) (* n h)) (setq pt (polar pt (cadr ang) (+ h (* 1.8 h (length lst))))) (polar pt (car ang) (* n h))) ss)
(setq pt (polar pt (car ang) (/ (* n h) 2)))
(if (= (caddr ang) 0)
(setq pt (polar pt (/ pi 2) (* 0.4 h)))
( o: }7 }; ?- r$ ]* d(setq pt (polar pt (/ pi 2) (+ (* 1.4 h) (* 1.8 h (length lst)))))
2 g# S5 \' ~- H)
(setq n -1)
, w3 s' i0 ]- q0 u; I% Z(repeat (length lst)
) ~8 k; y5 D& W: n  K8 g0 t* q(ssadd (add_text (setq pt (polar pt (+ pi (/ pi 2)) (* 1.8 h))) h 0 (nth (setq n (1+ n)) lst) "宋体" 1) ss)
9 n& U! A$ ]" M: L6 t9 q! R5 A)
/ f+ P4 ]. T4 J5 R) ?5 h, e. F)
(vl-load-com)
/ t2 \0 z) j# J- N) M( K2 k(command "_.undo" "_m")
(prompt "\n***移动鼠标掠过对象查看信息！***")
' p' ]- _& n6 M4 Q! o# X7 ^) u' A(setq olderr *error* *error* myerr)
(setq oldos (getvar "osmode"))
  C% P5 r6 w* j3 @( R(setq oldfill (getvar "fillmode"))
(setvar "osmode" 0)
(setvar "fillmode" 1)
(setvar "cmdecho" 0)
7 t. V0 r9 t, J% _5 W5 ]0 K(if (not (tblsearch "style" "宋体"))
: C+ F! Q* v: B/ E: i% e7 ]# z(command "_.style" "宋体" "宋体" "" "" "" "" "")
)
1 o# D; c9 y9 i(setq ss (ssadd))
(while (not pd)
(while (not (progn
3 p3 I0 {* h& w  L  n(setq gr (grread T 1))
(if (= (car gr) 5)
" |  K- E/ S0 Z(setq pt (cadr gr)
ent (nentselp pt)
  Z* F5 K$ j/ }. w, Kent (if (and ent (= (type (last (last ent))) 'ename))
  o* \7 m* l3 \5 E6 M; e0 O, q/ I! T(last (last ent))
(car ent)
# f: W( Q: I, o3 l)
) j3 Y9 d2 Y9 ~( {/ ?, e)
8 |* _2 `* L  U( v+ H. u) T8 Y(setq pd T)
9 V& N" m6 P, G$ h- Z% P)
))
)
(if (and (not pd) (not (equal ent entold)) (not (ssmemb ent ss)))
5 ^4 c; A% l- O2 L4 F, I  B9 Q- P$ ](progn
) Y/ P" _: U% S7 g, W$ W(if entold (redraw entold 4))
(if ss (command "_.erase" ss ""))
(redraw ent 3)
3 L+ `+ M. }! |, Q3 ?(dis ent)
9 Z3 E& I7 @) _" Z0 m(setq entold ent)
)
)
)
" G# M; N. r: j- q/ d. Y- _(if entold (redraw entold 4))
( f) s* l2 c) ~5 M3 e) P(if ss (command "_.erase" ss ""))
(setvar "osmode" oldos)
/ u( i3 W/ }) ]0 A8 p' l(setvar "fillmode" oldfill)
(setq *error* olderr)
, _4 u7 j' W8 j* i4 K1 N5 l(princ)
' ~1 B+ A" U5 F- I)

十二月

这可以得到任何种类曲线(包括LWPOLYLINE)的总长
(vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj))
/ J( x9 N- ], w9 M9 t  R6 U& e! N希望对你有帮助

A云

谢谢楼上 帮助

A云

好像得不到椭圆的周长