Topic: set distance by lisp in a dynamic block

[Romero]

Hi.
Maybe someone here in this forum can help me.
I'm trying to set the distance for a dynamic block of a single parameter; which is linear and is called Distance1.
I do not know what I'm doing wrong, but I can not do it and change the desired distance.
He helped me with the functions of Lee Mac, but something is wrong. Any help very similar, I will be completely grateful.

Code - Auto/Visual Lisp: [Select]

1. (defun c: ddd (/ obj dd)    
2.  
3. (if (y (setq obj (car (entsel "\ ndynamic block:")              
4. (setq dd (getdist "\ Length:"))))              
5. (= "AcDbBlockReference" (vla- get-objectname (setq obj (vlax-esame-> vla-object obj))))              
6. (=: vlax-true (vla-get-isdynamicblock obj))        
7. )        
8.  
9. (LM: setdynpropvalue obj "Distance1" dd)    
10. )    
11.  
12. (princ)
13.  
14. )
15.  
16.  
17. (defun LM: setdynpropvalue (blk prp val)    
18. (setq prp (strcase prp))    
19.  
20. (vl-some        '(lambda (x)            
21. (if (= prp (strcase (vla-get-propertyname x)))                
22. (progn                    
23. (vla- put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))                    
24. (cond (val) (t))                
25. )            
26. )        
27. )        
28. (vlax-invoke blk 'getdynamicblockproperties)     ) )
29. (vl-load-com) (princ)

[Dlanor]

Your parentheses were a bit out, and there were spurious spaces and spelling mistakes in some activeX function names. Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun c: ddd (/ ent obj dd)    
2.  
3. (if (setq ent (car (entsel "\ndynamic block:"))); You are getting an entity here              
4.   (setq dd (getdist "\nLength:"))
5.   (if (and  (= "AcDbBlockReference" (vla-get-objectname (setq obj (vlax-ename->vla-object ent)))); You're converting to an object here. No spaces in function names
6.             (= :vlax-true (vla-get-isdynamicblock obj))        
7.       );end_and          
8.     (LM: setdynpropvalue obj "Distance1" dd)    
9.   );end_if    
10. );end_if
11. (princ)  
12. );end_defun
13.  

And compare it with your code.

[steve.carson]

There is also an extra space in the LM:setdynpropvalue function.

[Dlanor]

There is also an extra space in the LM:setdynpropvalue function.

 

[steve.carson]

I meant function name. The code shows "LM: setdynpropvalue" when it should be "LM:setdynpropvalue".

[Dlanor]

I meant function name. The code shows "LM: setdynpropvalue" when it should be "LM:setdynpropvalue".

I know, I didn't see it hence the emoticons.

[gile]

Looks like a double post...

[ronjonp]

Looks like a double post...

Triple post .. on cadtutor too...