属性块求和

doounuo

有没有选择块，对块内单一属性进行求和的lisp文件，如图，里面包含字母，对长度进行求和
上传了，文件，请大佬看看能不能实现

自贡黄明儒

这个可以的。你查每一个块的属性值就可以了。假如块名为b1,（entnext b1)就可以找到。

llsheng_73

1. (defun getatts(blk)
   
2.   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)
   
3.     (mapcar(function(lambda(x)(list(vlax-get-property x'TagString)(vlax-get-property x'TextString)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))
   
4. (defun s2e(s / n lst)(if(=(type s)'pickset)(repeat(setq n(sslength s))(setq n(1- n)lst(cons(ssname s n)lst)))))
   

(defun getatts(blk)<br />   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)<br />     (mapcar(function(lambda(x)(list(vlax-get-property x'TagString)(vlax-get-property x'TextString)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))<br /> (defun s2e(s / n lst)(if(=(type s)'pickset)(repeat(setq n(sslength s))(setq n(1- n)lst(cons(ssname s n)lst)))))<br />

(apply'+(mapcar'(lambda(x)(read(VL-STRING-TRANSLATE"m"" "(cadr(assoc"长度"(getatts x))))))(s2e(ssget'((0 . "insert")(2 . "*长度标注"))))))

kozmosovia

llsheng_73 发表于 2025-1-16 08:48
(apply'+(mapcar'(lambda(x)(read(cadr(assoc"长度"(getatts x)))))(s2e(ssget'((0 . "insert")(2 . "*长 ...

错的，长度带有m，算不了加法

llsheng_73

kozmosovia 发表于 2025-1-16 09:01
错的，长度带有m，算不了加法

m是最后的，read后没了,但会丢掉小数，得将它替换成" "，修改了

kozmosovia

read之后不会变数字

阿然

(vl-string-right-trim "Mm" "100m")