ADIM.LSP

zhou

(DEFUN C:QC()
  (COMMAND "_UCS" "")
  (SETQ VAR1 (GETVAR "BLIPMODE"))
  (SETQ VAR2 (GETVAR "CMDECHO"))
  (SETVAR "BLIPMODE" 0)
  (SETVAR "CMDECHO"  0)             ;╰参跑秖砞﹚
  (SETQ COFFSET 2)
  (PRINT "夹猔龟砰:")
  (SETQ ENTGRP (SSGET '((0 . "CIRCLE"))))
  (SETQ FLAG (SSLENGTH ENTGRP))
  (setq omode (getvar "osmode"))              ;既?闽超ヘ夹??
  (setvar "osmode" 0)
  (REPEAT FLAG  
      (SETQ ENT (SSNAME ENTGRP (1- FLAG)))   
      (SETQ TEMP1 (ENTGET ENT))

      (SETQ CENPT (ASSOC 10 TEMP1))  
      (SETQ CENPT (LIST (CADR CENPT) (CADDR CENPT)))
      (SETQ CRADIU (ASSOC 40 TEMP1))
      (SETQ CRADIU (CDR CRADIU))
      (SETQ XCOFFSET ( + (CAR CENPT) CRADIU COFFSET))
      (SETQ YCOFFSET (+ (CADR CENPT) CRADIU COFFSET))     
      (SETQ ENT (LIST (CDR (ASSOC -1 TEMP1)) (LIST (+ CRADIU (CAR CENPT)) (CADR CENPT))))
(PRINC ENT) (PRINC "\N")
     
      (SETQ PTDIA (LIST XCOFFSET YCOFFSET))
      
      (COMMAND "_DIMDIAMETER" ENT  PTDIA)
      (SETQ FLAG (1- FLAG))
   )
  (SETVAR "OSMODE" OMODE)
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
)