[编程交流] 插入动态块并设置v

(defun c:ip()
(setq oldlayer (getvar "-.layer"))   
(setvar "cmdecho" 0)
(setq sc (getvar "dimscale"))
(SETQ LA (GETVAR "OSMODE"))
(COMMAND "LAYER" "S" "DIM" "")
(command "osmode" 5)
(setq pt1(getpoint "\nSELECT FIRST POINT : "))
(setq pt2(getpoint "\nSELECT SECOND POINT : "))
(SETQ XA ((CAR PT1)-(CAR PT2))) ; not sure if these are correct
(SETQ YA (CAR PT1)-(CAR PT2))
(SETQ LG (SQROOT(XA)^2+(YA)^2))
(SETQ AG (SIN^-1 (XA/YA)))
(COMMAND "INSERT" "ITA" PT1 SC SC 0)
I WANT TO PLACE IMPUT IN THIS BIT HERE
LENGTH = LG
ANGLE = AG
(COMMAND "LAYER" "S" OLDLAYER "")
(command "osmode" la)
(Setvar cmdecho 1)
(princ)
)

(defun c:ip (/ oldlayer oldcmd sc oldsnap pt1 pt2 lg ag)
   (setq oldlayer (getvar "clayer"))   
   (setq oldcmd (getvar "cmdecho"))
   (if (/= (setq sc1 (getvar "dimscale")) 0.0)
   (setq sc sc1)
   (setq sc 1.0)) ; end if
   (setq oldosnap (getvar "osmode"))
   (if (not (tblsearch "layer" "DIM"))
       (command "-layer" "m" "DIM" "")
       (setvar "clayer" "DIM")
   ) ; end if
   (command "osmode" 5)
   (if     
       (and
            (setq pt1 (getpoint "\nSELECT FIRST POINT : "))
            (setq pt2 (getpoint "\nSELECT SECOND POINT : "))
       ) ; end and
       (progn
            (setq lg (distance pt1 pt2))
            (setq ag (angle pt1 pt2))
            (command "insert" "ITA" pt1 sc sc 0)
; I WANT TO PLACE IMPUT IN THIS BIT HERE
; LENGTH = LG
; ANGLE = AG
        ) ; end progn
     ) ; end if
    (setvar "clayer" oldlayer)
    (setvar "osmode" oldsnap)
    (setvar "cmdecho" oldcmd)
    (princ)
)