[编程交流] Lisp：动态块管理

(DEFUN inserisci_prop_dyn (/) ;this funcion will change the dynamic proprieties
(putdynpropvalue obj "d" d) ; it changes the offset of the control section from the column/wall
 (COND ((= NOME_PIL "Pilastro Rettangolare") ; rectangular column
        
(COMMAND "_.regen")
        (putdynpropvalue obj "c1" c1) ;width
        ;(COMMAND "_.regen")
        (putdynpropvalue obj "c2" c2) ; height
        ;(COMMAND "_.regen")
        (putdynpropvalue obj "cb1" c1) ; it makes even the line that controls the distance from the edge of the slab with the width
        (putdynpropvalue obj "cb2" c1) ; for edge column there are 2 parameters for that
        
        (putdynpropvalue obj "cs1" c1) ;this is the same concept but for the edge column 
        (putdynpropvalue obj "cs2" c2) 
        (putdynpropvalue obj "cs3" c1) ;cs3 and cs4 are for interior edge column 
        (putdynpropvalue obj "cs4" c2)
        
        (putdynpropvalue obj "ang_rot" ang_rot) ;that change the rotation of the block
        
       )
       ((= NOME_PIL "Pilastro Circolare") ;circular column
        (COMMAND "_.regen")
        (putdynpropvalue obj "c1" c1)
        (putdynpropvalue obj "cb1" (/ c1 2))
        (putdynpropvalue obj "cb2" (/ c1 2))
        
        (putdynpropvalue obj "cs1" (/ c1 2))
        (putdynpropvalue obj "cs2" (/ c1 2))
        (putdynpropvalue obj "cs3" (/ c1 2))
        (putdynpropvalue obj "cs4" (/ c1 2))
        
        
        
        (putdynpropvalue obj "ang_rot" ang_rot)
       )
       ((= NOME_PIL "Angolo Interno") ;wall edge
        (putdynpropvalue obj "c1" c1)
        (putdynpropvalue obj "c2" c2)
        (COMMAND "_.regen")
        (SETQ a (/ (* 1.5 d) 100)
              b (/ (* 1.5 d) 100)
        )
        (putdynpropvalue obj "a" a)
        (putdynpropvalue obj "b" b)
        (putdynpropvalue obj "ang_rot" ang_rot)
        (COMMAND "_.regen")
       
       )
      ((= NOME_PIL "Fine Parete") ;wall end
        (putdynpropvalue obj "c1" c1)
        ;(putdynpropvalue obj "c2" c2)
        (SETQ a (MIN c1 (- (* 3 d) (* 0.5 c1)))
              b (MIN c1 (- (* 3 d) (* 0.5 c1)))
        )
        (putdynpropvalue obj "a" a)
        (putdynpropvalue obj "b" b)
        (putdynpropvalue obj "ang_rot" ang_rot)
       )
 )
 (putdynpropvalue obj "Vista" vista) ;each block can fit each situation: interior, edge, corner. With this line I'll set the right position
 
 (COMMAND "_.regen")
 
 ;(IF (AND (= nome_pil "Fine Parete") (= stato_inversione 1)) ;just to flip it, don't mind about that now
 ;  (toggleflipstate obj)
 ;  )
   
)

;;put dynamic property by property name
(DEFUN putdynpropvalue (obj name value / props names)
 (SETQ props (VLAX-INVOKE obj 'getdynamicblockproperties)
       names (MEMBER name (MAPCAR 'VLA-GET-PROPERTYNAME props))
 )
 (VLAX-PUT (NTH (- (LENGTH props) (LENGTH names)) props) 'Value value)
)