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

A云

这是个动态查询的程序，想在里面加上一个可以查闭合多段线周长的功能，显示出周长的长度，还显示一个周长乘以可以输入的一个数的等值，这样方便用来查线割的价钱，有哪位高手可以加上去的请帮帮忙，谢谢了
) `: K. z+ S4 y' B
  n/ g! y  }* ^/ m- U, D

  C: u! {% ?; s) g' y' i(defun C:abc(/ myerr dxf toang fx add_solid add_text dis olderr oldos oldfill ss pd gr pt ent entold)
# @, G) h6 I* D+ n- Q3 U                                                  ；；输入一个实数

, u7 m* D$ R4 O; i2 o& U(defun myerr(msg)
. B/ Y+ l" a/ s4 ^' |(setq *error* olderr)
(command "_.undo" "_b")
(princ)
)
3 [4 D7 P. u; y6 r(defun dxf(ent i)
(if (= (type ent) 'ename)
7 O: l  Q4 U' i! g4 m  H* y/ }, E, ^(setq ent (entget ent))
)
4 w, o, s6 a! s7 ^. L4 J: }3 x' j( m0 j(cdr (assoc i ent))
)
(defun toang(ang i)
) ^5 i; i6 P8 _8 X(if (= i 1)
4 q. u+ G0 S4 A& q* A- Y(* ang (/ 180 pi))
; \% |5 d" E$ I1 J) }2 N(* ang (/ pi 180))
7 y  ?2 F$ z4 E9 W2 j)
; k8 m* v- C" ?, `# @5 B) L)
(defun fx(ang)
# N6 F' y0 O% x4 g% _* `(cond
((>= (/ pi 2) ang 0) (list pi (+ pi (/ pi 2)) 1))
! _/ g2 K% Y' u8 A  P5 Y3 s((>= pi ang (/ pi 2)) (list 0 (+ pi (/ pi 2)) 1))
: m9 r+ p  [4 s" U9 g0 _((>= (+ pi (/ pi 2)) ang pi) (list 0 (/ pi 2) 0))
9 P/ H0 K; T/ U; }((>= (* 2 pi) ang (+ pi (/ pi 2))) (list pi (/ pi 2) 0))
)
)
3 Y3 m: t) r- y0 U+ ?, N% [- s(defun add_solid(p1 p2 p3 p4)
(entmakex (list (cons 0 "SOLID") (cons 100 "AcDbEntity") (cons 62 1) (cons 100 "AcDbTrace")
& d4 @' R. k; D! T(cons 10 p1) (cons 11 p2) (cons 12 p3) (cons 13 p4)
3 R# F" w% C1 `8 q  `)
)
)
(defun add_text(pt h ang txt style jus)
9 w( T- C( `' R/ W. k(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)
( T! [3 Y5 `) T9 c+ P0 |(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)))
: _: T6 b3 l' w. b)
! q, q7 @1 }/ _) S# M  h4 P# s)
/ I" b$ H  }' Q& _5 v)
! O, p" v8 e" {) T2 ?0 a" Q% s(defun dis(ent / obj laynm name st1 st2 st3 lst h ang n)
9 q) n! |) f( w6 z5 `, f' I(setq obj (vlax-ename->vla-object ent))
, O5 g3 Z6 U, @% _(setq laynm (strcat "图层:" (dxf ent 8)) name (dxf ent 0))
4 r' P+ j: Q( O9 ~(cond
((= name "3DFACE")
(setq lst (list "【三维面】" laynm))
5 D4 g; K% V5 G' W# `5 S)
((= name "3DSOLID")
' f  B8 i/ _# }- ~: Y( Z0 d(setq lst (list "【三维实体】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
)
( o% f4 C" e( Y" y((= name "ACAD_PROXY_ENTITY")
$ T8 T; H" ~  o1 s) T7 o( ~$ F(setq lst (list "【代理】" laynm))
, w  H3 _, J  d8 T: t)
((= name "ARC")
0 a* G9 X3 A6 Z* T  \(setq lst (list "【圆弧】" laynm (strcat "半径:" (rtos (vla-get-radius obj) 2 0))
(strcat "圆心角:" (rtos (toang (vla-get-TotalAngle obj) 1) 2 1) "度")
; P1 _. J1 U4 }' ^1 Q(strcat "起始角:" (rtos (toang (vla-get-StartAngle obj) 1) 2 1) "度")
  @+ y+ ]. k8 p0 q: W9 [% v6 a(strcat "终止角:" (rtos (toang (vla-get-EndAngle obj) 1) 2 1) "度")
9 g5 M; K- k4 X9 J1 l1 R(strcat "总弧长:" (rtos (vla-get-ArcLength obj) 2 3))
(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 3) "m㎡")
8 l0 f/ ?' }! R))
)
4 I" Q( G9 y  x8 q((= name "ATTDEF")
+ Y+ |- J1 ?; J1 m0 Q5 `/ e0 ?; @(setq lst (list "【属性定义】" laynm (strcat "标签:" (vla-get-TagString obj))
/ }; `% _, E8 M$ t3 G(strcat "提示:" (vla-get-PromptString obj))
(strcat "缺省值:" (vla-get-TextString obj))
; m6 t2 B5 P& D- t' ?(strcat "高度:" (rtos (vla-get-Height obj) 2 0))
4 n. g0 I; |+ g, G3 A8 t6 `(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
  H4 S" ^# r3 n' v* @+ ~(strcat "文字样式:" (vla-get-StyleName obj))
5 z: I  d( Z; S; U* _* z+ ~))
8 M$ r1 l, G- D& m)
((= name "ATTRIB")
' P4 {5 V7 H1 Q- o(setq lst (list "【属性】" laynm (strcat "标签:" (vla-get-TagString obj))
( ]" B* ~$ t! l, {(strcat "缺省值:" (vla-get-TextString obj))
(strcat "高度:" (rtos (vla-get-Height obj) 2 0))
, w8 @3 n- g1 D. \(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
(strcat "文字样式:" (vla-get-StyleName obj))
))
)
5 U% ]0 k+ s* [; @4 ~((= name "BODY")
9 G" q' a& T; T/ B8 N3 U1 K(setq lst (list "【体】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
)
((= name "CIRCLE")
8 n) ?/ P( L" L9 F+ u+ q& ~(setq lst (list "【圆】" laynm (strcat "半径:" (rtos (vla-get-radius obj) 2 0))
(strcat "周长:" (rtos (vla-get-Circumference obj) 2 0))
4 a2 o2 O: E% F8 o; E9 Y& ]: x4 E(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")
))
* c$ v9 [5 d( I3 Q- o)
* g) }) g9 N" q7 A' V4 F; Y4 o5 Y((= name "DIMENSION")
  P8 |2 s* Z& x  a1 T: @(setq lst (list "【尺寸标注】" laynm (strcat "标注样式:" (vla-get-StyleName obj))
(strcat "文字样式:" (vla-get-TextStyle obj))
' E6 L8 i0 @/ w3 O(strcat "文字高度:" (rtos (vla-get-TextHeight obj) 2 1))
(strcat "替带文字:" (if (= (dxf ent 1) "") "无" (dxf ent 1)))
))
4 I; J1 t0 z. C' m$ {/ A1 C1 Z)
((= name "ELLIPSE")
: z0 N9 z7 m7 o) N4 ?4 d! i* q(setq lst (list "【椭圆】" laynm (strcat "长轴半径:" (rtos (vla-get-MajorRadius obj) 2 0))
(strcat "短轴半径:" (rtos (vla-get-MinorRadius obj) 2 0))
) R% y8 t8 j8 ^0 L2 U$ i(strcat "起始角:" (rtos (toang (vla-get-StartAngle obj) 1) 2 1) "度")
(strcat "终止角:" (rtos (toang (vla-get-EndAngle obj) 1) 2 1) "度")
(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")
))
; v" D$ I9 O/ j)
((= name "HATCH")
" {/ s* F( R7 c" c5 z8 x6 C' O- @(setq lst (list "【图案填充】" laynm (strcat "图案名称:" (vla-get-PatternName obj))
0 q; d4 n$ @0 s' H(strcat "角度:" (rtos (toang (vla-get-PatternAngle obj) 1) 2 1))
(strcat "比例:" (rtos (vla-get-PatternScale obj) 2 0))
5 U" G  ?; ^- d+ d(strcat "关联:" (if (= (vla-get-AssociativeHatch obj) :vlax-false) "关闭" "打开"))
(strcat "填充样式:" (nth (vla-get-HatchStyle obj) '("普通" "外部" "忽略")))
))
)
- @! S4 Z; U0 ^# K! s((= name "IMAGE")
(setq lst (list "【图像】" laynm (strcat "图像大小:" (rtos (car (dxf ent 13)) 2 0) "X" (rtos (cadr (dxf ent 13)) 2 0))))
: W0 L. `8 h4 v)
5 G6 ^+ Z( Q( m) m6 q((= name "INSERT")
(setq lst (list "【图块】" laynm (strcat "名称:" (dxf ent 2))
(strcat "X比例:" (rtos (dxf ent 41) 2 1))
* g1 z  g# g2 h(strcat "Y比例:" (rtos (dxf ent 42) 2 1))
* t; r! w  G+ {. d2 l' b, ](strcat "Z比例:" (rtos (dxf ent 43) 2 1))
(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
))
/ k8 V' R1 O- J- k* H; O; Y)
; [; j9 r; I* c/ p((= name "LEADER")
3 K! W' C; u. r2 K2 C(setq lst (list "【引线】" laynm (strcat "标注样式:" (vla-get-StyleName obj))
(strcat "引线类型:" (dxf (list (cons 0 "折线") (cons 1 "样条曲线")) (dxf ent 72)))
))
; j! a; `/ k1 D$ G)
; b3 |3 w5 b; b((= name "LINE")
(setq lst (list "【直线】" laynm (strcat "长度:" (rtos (vla-get-length obj) 2 0))
(strcat "角度:" (rtos (toang (vla-get-angle obj) 1) 2 1) "度")
; S! B+ o8 _( J6 c9 g))
" m( a1 l; L4 }/ L  J' t)
% D0 ?: f! v  L5 R1 m  m2 j((= name "LWPOLYLINE")
(setq lst (list "【多段线】" laynm (strcat "常量宽度:" (if (dxf ent 43) (rtos (vla-get-ConstantWidth obj) 2 0) "变宽度"))
+ u$ U* w# a" q! T' X(strcat "多段线:" (if (= (vla-get-Closed obj) :vlax-false) "不闭合" "闭合"))
# Z9 n/ h6 n% W6 T$ U(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")

                                                           ;;加上一个可以查闭合多段线周长的功能,显示
                             ;;周长乘以可以输入的一个数的等值,显示

A云

))
+ ?; W: B6 S3 F' k% b)
& ]) V" Y. t3 k! @. }; z((= name "MLINE")
1 n0 q! f2 X) N9 J4 W* U(setq lst (list "【多线】" laynm (strcat "多线样式:" (vla-get-StyleName obj))
, w, {* l+ h: o) q9 i; C6 I(strcat "比例因子:" (rtos (dxf ent 40) 2 1))
(strcat "对齐:" (nth (dxf ent 70) '("上" "零" "下")))
' o' V& m4 Z! ^8 \# _# |( ~# F; Q))
)
((= name "MTEXT")
- y! b2 V. }# f* D4 v+ `(setq lst (list "【多行文字】" laynm (strcat "高度:" (rtos (vla-get-Height obj) 2 0))
" m( D2 g5 u+ o2 M0 e  G2 p(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
( k! b8 K+ @/ X" E( t7 |8 C# r  b(strcat "样式:" (vla-get-StyleName obj))
))
* L4 F) ?/ ], |* m5 _)
((or (= name "OLEFRAME") (= name "OLE2FRAME"))
(setq lst (list "【OLE边框】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
( j3 h4 g8 u* b, h)
/ P" ?. S: C% M( P((= name "POINT")
(setq lst (list "【点】" laynm))
)
2 f  N: K7 r" O. f; m# g((= name "POLYLINE")
(setq lst (list "【三维多段线】" laynm))
)
((= name "RAY")
(setq lst (list "【射线】" laynm))
' |* M! `1 H3 ~1 v: V/ B7 k. @)
6 e6 [$ z' W6 X* s' b4 N+ x3 }4 B- Y((= name "REGION")
9 F9 `8 R% F3 V9 W) ]! n: ?% f(setq lst (list "【面域】" laynm (strcat "格式版本号:" (itoa (dxf ent 70)))))
4 |- o2 D# @. T1 c- A)
* J7 k0 ]4 m; X1 t  I/ |((= name "SHAPE")
(setq lst (list "【形】" laynm (strcat "高度:" (rtos (vla-get-Height obj) 2 0))
1 \& v- q1 w0 g! }( F% P(strcat "宽度系数:" (rtos (vla-get-ScaleFactor obj) 2 1))
  C3 f* z3 C2 l9 E5 r, B, h(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
4 v3 D7 X6 W% K" s- d% y; a- Z4 B' W))
- L9 N/ `( M9 l7 i6 F( e) l! u)
((= name "SOLID")
" c7 p% W: V. D: [4 g% e- l3 G, u(setq lst (list "【实体】" laynm))
)
4 O- l6 ]3 P# V& ^! d2 x# @9 K3 C((= name "SPLINE")
(setq lst (list "【样条曲线】" laynm (strcat "多段线:" (if (= (vla-get-Closed obj) :vlax-false) "不闭合" "闭合"))
(strcat "阶数:" (rtos (vla-get-Degree obj) 2 0))
6 V) V% X6 }( K$ Q% E(strcat "面积:" (rtos (/ (vla-get-Area obj) 1) 2 2) "m㎡")
))
9 N: Y' H2 _. o4 D( z. I! y)
4 ~( [- _* q8 j2 w$ ~((= name "TEXT")
. a  [7 N0 i6 X/ T6 L2 \(setq lst (list "【文字】" laynm (strcat "高度:" (rtos (vla-get-Height obj) 2 0))
(strcat "宽度系数:" (rtos (vla-get-ScaleFactor obj) 2 1))
" f* B2 |# j# G. ?(strcat "角度:" (rtos (toang (vla-get-Rotation obj) 1) 2 1) "度")
(strcat "样式:" (vla-get-StyleName obj))
(strcat "对齐:" (nth (vla-get-Alignment obj) '("Left" "Center" "Right" "Aligned" "Middle" "Fit" "TopLeft" "TopCenter" "TopRight"
"MiddleLeft" "MiddleCenter" "MiddleRight" "BottomLeft" "BottomCenter" "BottomRight")))
5 K& r3 ]* v/ t$ B8 Y: a3 e- f))
' X- K; o% O) @) G! Y- k)
((= name "TOLERANCE")
(setq lst (list "【公差】" laynm (strcat "标注样式:" (vla-get-StyleName obj))
1 Y' d8 J7 c2 x+ j% W(strcat "文字样式:" (vla-get-TextStyle obj))
$ Y$ w6 x) a9 u, _& N(strcat "文字高度:" (rtos (vla-get-TextHeight obj) 2 1))
))
6 f# v2 M# p' i* V- Z)
& f5 e" C  h8 g- ^3 c4 m((= name "TRACE")
(setq lst (list "【宽线】" laynm))
7 h5 c3 ?2 @, `: V/ v- {)
((= name "VERTEX")
(setq lst (list "【顶点】" laynm (strcat "起始宽度:" (rtos (dxf ent 40) 2 0))
6 V+ c8 K; c2 J5 n(strcat "结束宽度:" (rtos (dxf ent 41) 2 0))
(strcat "凸度:" (rtos (dxf ent 42) 2 1))
))
)
3 w+ Z4 B! v2 v4 C: X((= name "XLINE")
(setq lst (list "【构造线】" laynm))
1 N& V* M6 }# Q+ {$ Z7 J)
(T
(setq lst (list "【未知对象】" laynm))
2 M: N! p8 y: t4 ~' [2 e8 `; P)
3 k) g% W7 N# g6 W' e0 _; x)
/ I" j# {4 h6 a# S; }(setq ss (ssadd) h (/ (getvar "viewsize") 50))
(setq ang (fx (angle (getvar "viewctr") pt)))
5 _8 f: ~* ?$ o4 q(setq n (* 1.4 (1+ (/ (apply 'max (mapcar 'strlen lst)) 2.0))))
3 e- Q1 M2 ?0 Z(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)
# `' g1 C( s$ B4 K3 H3 i% N5 J' @(setq pt (polar pt (car ang) (/ (* n h) 2)))
(if (= (caddr ang) 0)
(setq pt (polar pt (/ pi 2) (* 0.4 h)))
(setq pt (polar pt (/ pi 2) (+ (* 1.4 h) (* 1.8 h (length lst)))))
$ g1 r! J& H) l8 X& L)
- X9 f) v% W, l* h4 |; D" ^' v0 D! \(setq n -1)
5 ?  M7 R: f  H4 p(repeat (length lst)
(ssadd (add_text (setq pt (polar pt (+ pi (/ pi 2)) (* 1.8 h))) h 0 (nth (setq n (1+ n)) lst) "宋体" 1) ss)
)
)
5 [8 e( i8 l0 i/ c6 |9 J) T: q& M(vl-load-com)
1 w# H0 e5 B# B8 h/ N% `(command "_.undo" "_m")
(prompt "\n***移动鼠标掠过对象查看信息！***")
(setq olderr *error* *error* myerr)
+ P/ G! H& S1 Y- n, p(setq oldos (getvar "osmode"))
+ A* }4 [6 [' g. t) V5 H' E* O& b(setq oldfill (getvar "fillmode"))
7 x$ N! }2 o$ i: g2 c1 _; u& ~5 F( V% |(setvar "osmode" 0)
) ~8 ?/ v5 U$ [; \  C(setvar "fillmode" 1)
(setvar "cmdecho" 0)
! U2 s8 A( n# o, v2 H. m/ S+ x: ~(if (not (tblsearch "style" "宋体"))
(command "_.style" "宋体" "宋体" "" "" "" "" "")
)
(setq ss (ssadd))
(while (not pd)
8 g7 {, P+ g, O5 N6 x( V(while (not (progn
8 a: X& K2 Y: v$ |(setq gr (grread T 1))
/ P3 K/ }6 @. T# M(if (= (car gr) 5)
: r7 J( A5 T9 h% h% ^: L3 Z# p(setq pt (cadr gr)
ent (nentselp pt)
/ h8 @8 F! Y' C; R( cent (if (and ent (= (type (last (last ent))) 'ename))
, A- V/ m( ?* X+ P4 w; Z+ T3 K(last (last ent))
(car ent)
7 r; U( g2 }4 i5 n! ?)
)
(setq pd T)
) ?# |$ B1 M( I6 J0 m)
))
)
1 u6 O2 {6 k& i3 i! s/ u* P(if (and (not pd) (not (equal ent entold)) (not (ssmemb ent ss)))
4 x$ k7 `2 J; q' m, U5 H# M(progn
(if entold (redraw entold 4))
- S4 ]% i8 O1 F(if ss (command "_.erase" ss ""))
(redraw ent 3)
(dis ent)
3 S- i6 v, S' o7 d; m" H(setq entold ent)
)
3 j1 X( }" L- v% L; h)
)
(if entold (redraw entold 4))
( `- n; s! ^+ |(if ss (command "_.erase" ss ""))
  F4 i+ _  I0 `* h" [(setvar "osmode" oldos)
7 q+ x, U) E  N(setvar "fillmode" oldfill)
- ]% ?0 D; m; f  t4 n(setq *error* olderr)
(princ)
8 ]6 n; W; F) p6 l- e  a# T5 n, l) e)

十二月

这可以得到任何种类曲线(包括LWPOLYLINE)的总长
3 S, c8 d) x% o( A1 j(vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj))
希望对你有帮助

A云

谢谢楼上 帮助

A云

好像得不到椭圆的周长