Topic: Edit Block Attribute

[amc.dicsac]

Hello, I have the following code that allows me to select polylines to save the distance and then insert a block with an attribute, but the problem is how I add the distance to the attribute.

Code - Auto/Visual Lisp: [Select]

1. (defun c:pee (/ s i e Long Cadena BlockEsc BlockName Msj_Bloque)
2. (vl-load-com)
3. (setvar "cmdecho" 0)
4. (setq s (ssget
5.          '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE")
6.            (-4 . "<NOT")
7.            (-4 . "<AND")
8.            (0 . "POLYLINE")
9.            (-4 . "&")
10.            (70 . 80)
11.            (-4 . "AND>")
12.            (-4 . "NOT>")
13.           )
14.        )
15. )
16. (setq i (sslength s))
17. (setq e (ssname s (setq i (1- i))))
18. (setq Long (rtos (vlax-curve-getdistatparam e (vlax-curve-getendparam e)) 2 2))
19. (setq Cadena (strcat "L=" Long "m"))
20. (setq BlockEsc "1")
21. (setq BlockName "1-DZL-BLOCK PENDIENTE")
22. (setq Msj_Bloque (strcat  "\n>> Especifica inserción del bloque [ " BlockName " ]: "))
23. (princ Msj_Bloque)
24. (command "._insert" BlockName "_s" BlockEsc Cadena)
25. (while (= (logand (getvar "cmdactive") 1) 1)
26. (command pause))
27. (setvar "cmdecho" 1)
28. (princ))

[BIGAL]

If you have say a block with a single attribute length then just

Code: [Select]

(command "-insert" Blockname pt 1 1 0 attributevalue)


[HasanCAD]

I belive you have to save the block in a seperete file to call if not exist in file.
filename should has file extention

Code - Auto/Visual Lisp: [Select]

1. (setq BlockName "c:/MyBlocks/1-DZL-BLOCK PENDIENTE.dwg")

And this line changed too

Code - Auto/Visual Lisp: [Select]

1. (command "._insert" BlockName Msj_Bloque BlockEsc BlockEsc BlockEsc Cadena)

Not Tested