Cómo utilizar el programa lisp para extraer el atributo de longitud en el bloque de atributos seleccionado, resumirlo y finalmente dar el resultado

El primer programa: use el programa AutoLisp, primero use el bloque de este elemento, luego use entnext para encontrar la longitud en el bloque de atributos uno por uno, y luego averigüe su valor. y luego realizar la operación, prestando atención al uso de entnext. Este es fácil y debes escribirlo tú mismo.

Segundo programa: use el programa VisualLisp, preste atención al uso de vla-get-attributes, vlax-variant-value, vlax-safeArray->list El siguiente es un ejemplo de VisualLisp

(Defun C.list (vlax-variant-value lstVar)))

(setq TextString nil)

( foreach attr lstAttrs

( setq TagString (vla-get-TagString attr))

(if (equal TagString "length") ;aquí está el elemento que desea

(setq TextString (vla-get- TextString attr))

)

(if TextString

(princ (strcat "El contenido de longitud = " TextString))

( princ "No se encuentra longitud ")

)

(prin1)

)

)

)