[编程交流] 插入块，添加圆，exlo

(defun C:fp (/ BlockName CmdEchoOld InsPt OsmodeOld Rot ScaleX ScaleXY
       ScaleY)
 (vl-load-com)
 (setq CmdEchoOld (getvar "CMDECHO")
OsmodeOld  (getvar "OSMODE")
 )
 (setvar "CMDECHO" 0)
 (SETVAR "OSMODE" 0)
 (setq BlockName (getstring T "\nEnter block name:  ")
InsPt   (getpoint "Specify insertion point:  ")
  ScaleX   (getreal "\nEnter X scale value:  ")  ;;; no need for this line as y always = 1
        (setq fp(getdist"\nEnter the focal point: "))
            (setq ns(getdist"\nEnter the ns point: "))
                ScaleY   (getreal "\nEnter Y scale value:  ")
                ScaleXY   (getreal "\nEnter overall scaling:  ")
      Rot   (getreal "Specify rotation angle of the block :  ");;; no need for this line as the rotation is always 0
 )
 (vl-cmdf "._insert" BlockName InsPt ""ScaleY Rot)
 (vl-cmdf "._scale" "_L" "" InsPt ScaleXY)
(setq fp3(list(-(car inspt)(fp))((cadr inspt))))
(setq fp4(list(+(car inspt)(fps))(cadr inspt))))
(setq ns1(list(car inspt)))(-(cadr inspt)(ns))))
(setq ns2(list(car inspt)(ns))(+(cadr inspt)(ns))))
(COMMAND "circle" fp3 2)
(COMMAND "circle" fp4 2)
(COMMAND "circle" ns1 2)
(COMMAND "circle" ns2 2) 
 (setvar "CMDECHO" CmdEchoOld)
 (setvar "OSMODE" OsmodeOld)
(princ)
)
(princ)

(setq fp3(list(-(car inspt)(fp))((cadr inspt))))

(defun c:fp2 ()
(graphscr)
(setq fp(getdist"\nEnter focal point: "))
(setq ns(getdist"\nEnter ns point: "))
(setq inspt(getpoint"\nPlace to add to the block :"))
(setq p1(list(-(car inspt)(fp))(cadr inspt)))
(setq p2(list(+(car inspt)(fp))(cadr inspt)))
(setq p3(list (car inspt))(+(cadr inspt)ns)))
(setq p4(list (car inspt))(-(cadr inspt)ns)))
   
(COMMAND "circle" p1 10) 
(COMMAND "circle" p2 10)
(COMMAND "circle" p3 10) 
(COMMAND "circle" p4 10) 
)

(defun c:fp2 ()
 ;Made by rooky37
 ;Autocad The Netherlands 
 ;Copyright © MR. CAD Mitchell Rodhouse
 ;;;;;;Thankfully to MR. CAD -Mitchell Rodhouse
 ;define the function
 
(graphscr)
 ;*
 ;Save System Variables
 (setq oldsnap (getvar "osmode"))
 
 ;save snap settings
 (setq oldblipmode (getvar "blipmode"))
 ;save blipmode setting
 (setvar "cmdecho" 1)
 (setvar "INSUNITS" 4)
 ;*
 ;Switch OFF system Variables
 (setvar "osmode" 0)
 ;Switch OFF snap
 (setvar "blipmode" 0)
 ;Switch OFF Blipmode
 ;*
 
 ;get User Inputs
 (setq fp (getdist"\nEnter focal point: "))
 (setq ns (getdist"\nEnter ns point: "))
 
 ;*
 ;Get Insertion Point
 
 (setq inspt(getpoint"\nPlace to add to the block :"))
 (setvar "osmode" 32)
 ;switch ON snap
 (setvar "osmode" 0)
 ;switch OFF snap
 ;*
 ;Start of Polar Calculations
 (setq p1 (polar inspt (dtr -90.0) fp))
 (setq p2 (polar inspt (dtr 90.0) fp))
 (setq p3 (polar inspt (dtr 180.0) ns))
 (setq p4 (polar inspt (dtr 0.0) ns))
 ;End of the Polar calculations by MR. CAD - MITCHELL RODHOUSE
 ;*
 ;Start Command Function
   
 (COMMAND "circle" p1 200
     "circle" p2 200
     "circle" p3 200 
     "circle" p4 200
   
 ) ;End command
;End of Commands made by MR. CAD - MITCHELL RODHOUSE
 (setvar "osmode" 32)
 ;switch ON snap
 
 ;*
 ;Reset System Variable
 (setvar "osmode" oldsnap)
 ;Reset snap
 (setvar "blipmode" oldblipmode)
 ;Reset blipmode
 (setvar "cmdecho" 0)
 (princ "Copyright © - Written by MR. CAD")
 (setvar "cmdecho" 1)
 
 ;*
 (princ)
 ;finish cleanly
 
 ) ;end of defun
;*
;This function converts Degrees to Radians.
(defun dtr (x)
 ;define degrees to radians function
 (* pi (/ x 180.0))
 ;divide the angle by 180 then
 ;multiply the result by the constant PI
) ;End of function
;*
(princ) ;load cleanly
;*
;;HOPE THIS LISP WILL BE FUNCTIONAL FOR THE USER
;;MADE BY MR. CAD - MITCHELL RODHOUSE
;;END LISP