[编程交流] 插入动态块，错误：ba

;Modify the dynamic property values
(defun DynamicProps (ename propname value / obj prpL cla cll prp)
 (vl-load-com)
 (setq obj (if (= (type ename) 'VLA-OBJECT) ename (vlax-ename->vla-object ename)))
 (if vla-getdynamicblockproperties (setq prpL (vlax-invoke obj 'getdynamicblockproperties)))
 (setq return
   (if (setq prp (vl-remove-if-not (function (lambda(x)(= (vlax-get-property x 'PropertyName) propname))) prpL))
     (mapcar (function (lambda(v)
       (if (and (/= value nil)(vlax-property-available-p v 'Value)(/= (type value)'LIST))
         (progn (vlax-put-property v 'Value value)(vla-update obj))
       )
       (if (and (vlax-property-available-p v 'AllowedValues) (vlax-get v 'AllowedValues))
         (list (vlax-get v 'Value)(vlax-get v 'AllowedValues))
  (vlax-get v 'Value)
       )
     )) prp)
     (mapcar (function (lambda(v)(list (vla-get-propertyName v)(vlax-get v 'Value) v))) prpL)
   )
 )
 return
)
;===============================================================
;Get polyline vertex
(defun verpoytexs (ename / plist pp n) 
 (setq obj (vlax-ename->vla-object ename))
 (setq plist (vlax-safearray->list
 (vlax-variant-value
    (vla-get-coordinates obj))))
 (setq n 0)
 (repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n 2))
 )
 pp
)
;===============================================================
(defun c:tt ( / ss pt_copy pl_pt_lst off_real)
 (princ  "\n Select the block to be processed:" )
 (setq ss (ssget ":S" '((0 . "insert"))))
 (setq pt_copy (cdr (assoc 10 (entget  (ssname ss 0)))))
 (or (= (vla-get-isdynamicblock (vlax-ename->vla-object e)):vlax-true) (exit))
 (princ  "\n Select polyline to be processed:" )
 (setq pl_pt_lst (verpoytexs  (ssname (ssget ":S" '((0 . "LWPOLYLINE"))) 0)))
 (setq off_real (getreal "\n Enter the interval width："))
 (mapcar
       '(lambda (p1 p2)
          (vl-cmdf ".copy" ss "" "_none" pt_copy "_none" p1)
          (vl-cmdf ".rotate" (entlast) "" "_none" p1 "R" 0 p2)
          (DynamicProps (entlast) "L" (- (distance p1 p2) off_real))
        )
       pl_pt_lst
       (cdr pl_pt_lst)
     )
 (princ)
)
(vl-load-com)

(defun c:tt ( / ss pt_copy pl_pt_lst off_real)
 (princ  "\n Select the block to be processed:" )
[b]  (if (and
(setq ss (ssget ":S" '((0 . "insert"))))
(or (= (vla-get-isdynamicblock (vlax-ename->vla-object [color="blue"](setq e (ssname ss 0))[/color])):vlax-true) (exit))
(princ "\n Select polyline to be processed:")
(setq pl (ssget ":S" '((0 . "LWPOLYLINE"))))
(setq off_real (getreal "\n Enter the interval width:"))
     )[/b]
   (progn
  (setq pt_copy (cdr (assoc 10 (entget  [b][color="blue"]e[/color][/b]))))
  (setq pl_pt_lst (verpoytexs  (ssname [b]pl[/b] 0)))
  (mapcar
        '(lambda (p1 p2)
           (vl-cmdf ".copy" ss "" "_none" pt_copy "_none" p1)
           (vl-cmdf ".rotate" (entlast) "" "_none" p1 "R" 0 p2)
           (DynamicProps (entlast) "L" (- (distance p1 p2) off_real))
         )
        pl_pt_lst
        (cdr pl_pt_lst)
      )
   [b]  ); progn
   ); if[/b]
 (princ)
)

(vlax-ename->vla-object e)

(vlax-ename->vla-object (ssname ss 0))