[编程交流] 无法运行命令

(defun c:tmp (/ ctr tte sset item r )
  (setq sset (ssget "_a" (LIST '(0 . "*polyline") (cons 410 (getvar "CTAB")))))
  (setq ctr 0 tte 0 r 0)
  (repeat (sslength sset )
    (setq item (ssname sset ctr))
(if (/= sset 0)
   (porgn
   (vl-cmdf "explode" item "")
   (princ "All objects exploded")
   )
   (progn
   (setq r (1+ r))
);end if
(if (/= r 0)
      (alert (strcat "total"(itoa r) "nos of polyline can't explode"))
       (princ "All polyline exploded")
    );end if
);end if
);end defun

 
...
(if (/= sset 0)
   (progn
   (vl-cmdf "explode" item "")
   (princ "All objects exploded")
   )
...

 
(defun c:tmp (/ ctr sset item r) [color=red]; tte
[/color]  (setq
   sset (ssget "_a"
 (LIST '(0 . "*polyline") (cons 410 (getvar "CTAB")))
 )
 )
 (setq ctr 0 r 0)    [color=red] ; tte 0)[/color]
 (repeat (sslength sset)
   (setq item (ssname sset ctr))
   (if (/= sset 0)
     ([color=red]progn
[/color]        (vl-cmdf "[color=red]_.[/color]explode" item "")
       (princ "[color=red]\nThis[/color] object exploded")
     )     ;end progn
[color=red]  ;;   (progn
[/color]        (setq r (1+ r))
[color=red]  ;;   )     ;end progn
[/color]    )     ;end if
  [color=red] (setq ctr (1+ ctr))
[/color]  )     ;end repeat
 (if (/= r 0)
   (alert
     (strcat "[color=red]\n[/color][color=black]T[/color][color=black]otal[/color]" (itoa r) "nos of polyline can't explode")
   )
   (princ "[color=red]\n[/color][color=black]All[/color] polyline exploded")
 )     ;end if
[color=red]  (princ) ; exit quietly
[/color])     ;end defun

(vl-load-com)
(defun c:ExpPolys (/ ss eo err lck res LckLay)
 ;; Firsth get all the locked layer names
 (vlax-for eo (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
   (if (= (vla-get-Lock eo) :vlax-true)
     (setq LckLay (cons (vla-get-Name eo) LckLay))
   )
 )
 ;; Next select and initialize variables
 (if (ssget "_a" (LIST '(0 . "*polyline") (cons 410 (getvar "CTAB"))))
   (progn
     (setq err 0
           lck 0
           ss  (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
     )
     ;; Step through all items in the selection set
     (vlax-for eo ss
       ;; Check if on locked layer
       (if (vl-position (vla-get-Layer eo) LckLay)
         (setq lck (1+ lck)) ;If locked increment lck
         ;; Else attempt to explode
         (if (vl-catch-all-error-p (setq res (vl-catch-all-apply 'vla-Explode (list eo))))
           (setq err (1+ err)) ;If failed increment err
         )
       )
     )
     (princ (strcat "\nOff "
                    (itoa (vla-get-Count ss))
                    " polylines, "
                    (itoa lck)
                    " were on locked layers and "
                    (itoa err)
                    " couldn't be exploded."
            )
     )
     ;; Ensure selection set is cleared from RAM
     (vla-Delete ss)
     (vlax-release-object ss)
     (setq ss nil)
     (gc)
   )
   (princ "\nNo polylines to explode.")
 )
 (princ)
)