[编程交流] 将数据发送到内部属性

(vl-load-com)
(defun C:tst (/ stpt edpt vla-blk ss)
 (if (setq stpt (getpoint "\nclick start point"))
   (if        (setq edpt (getpoint stpt "\nclick end point"))
     (progn
(command "-insert" "re1" stpt "1" "" "0" "" "")
(setq vla-blk (vlax-ename->vla-object (entlast)))
(setq ss (ssadd (entlast)))
(sssetfirst nil ss)
(LM:setdynpropvalue vla-blk "Pin Length" 15)
(LM:setdynpropvalue vla-blk "Rebar Length" 600)
(LM:setdynpropvalue vla-blk "Angle" (angle stpt edpt))
     )
   )
 )
)
 ;; Set Dynamic Block Property Value  -  Lee Mac
;; Modifies the value of a Dynamic Block property (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; prp - [str] Dynamic Block property name (case-insensitive)
;; val - [any] New value for property
;; Returns: [any] New value if successful, else nil
(defun LM:setdynpropvalue ( blk prp val )
   (setq prp (strcase prp))
   (vl-some
      '(lambda ( x )
           (if (= prp (strcase (vla-get-propertyname x)))
               (progn
                   (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
                   (cond (val) (t))
               )
           )
       )
       (vlax-invoke blk 'getdynamicblockproperties)
   )
)