[编程交流] 需要此lisp的帮助

(defun c:sd (/ DM1 DM2 ENT1 ENT1NEW ENT2 ENT2NEW EP EP1 EP2 NP NP1 SP SP1 SP2 )
 (setq dm1  (car (entsel))
ent1 (entget dm1)
sp1 (assoc 13 ent1)
ep1 (assoc 14 ent1)
sp sp1
ep ep1)
 (setq np (getpoint "\nPick Seperating point: ")
np1 (cons 14 np))
 (setq ent1new (subst np1 ep1 ent1))
 (entmod ent1new)
 (command "._copybase" np dm1 "")
 (command "._pasteclip" np)
 (setq dm2  (entlast)
ent2 (entget dm2)
sp2 (assoc 13 ent2)
ep2 (assoc 14 ent2))  
 (setq ent2new (subst np1 sp2 ent2))
 (entmod ent2new)
 (setq ent2new (subst ep ep2 ent2))
 (entmod ent2new)
 )

(vl-load-com)
(defun c:DimSplit () (c:DimensionSplit))
(defun c:DimensionSplit (/ ss pt e data s)
 (if (and (setq ss (ssget ":S:E:L" '((0 . "DIMENSION"))))
          (setq pt (trans (getpoint "\nPick Seperating point: ") 1 0))
     )
   (progn
     (entmod
         (subst
           (cons 14 pt)
           (assoc 14 (setq data (entget (setq e (ssname ss 0)))))
           data
         )
       )
     (entupd e)
     (setq s (vla-get-scalefactor (vlax-ename->vla-object e)))
     (entlast)
     (entmake
         (list
           (cons 0 "DIMENSION")
           (cons 100 "AcDbEntity")
           (cons 67 0)
           (assoc 8 data)
           (cons 100 "[color="red"]AcDbDimension[/color]")
           (assoc 10 data)
           (assoc 11 data)
           (assoc 70 data)
           (assoc 1 data)
           (assoc 52 data)
           (assoc 53 data)
           (assoc 54 data)
           (assoc 51 data)
           (assoc 210 data)
           (assoc 3 data)
           (cons 100 "[color="red"]AcDbAlignedDimension[/color]")
           (cons 13 pt)
           (assoc 14 data)
           (assoc 15 data)
           (assoc 16 data)
           (assoc 40 data)
           (cons 100 "[color="red"]AcDbRotatedDimension[/color]")
         )
       )
     (vla-put-scalefactor (vlax-ename->vla-object (entlast)) s)
   )
 )
 (princ)
)