圆孔批量标注

F1619243

;圆孔批量标注
(DEFUN C:qdc(/ VAR1 VAR2 ENTGRP FLAG ENT TEMP1 OMODE OFFSET CENPT CRADIU PTX PTY  )  
  (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 PTX (LIST XCOFFSET (CADR CENPT)))
      (SETQ PTY (LIST (CAR CENPT) YCOFFSET ))
      (SETQ PTDIA (LIST XCOFFSET YCOFFSET))

      (COMMAND "_DIMORDINATE" CENPT PTX)
      (COMMAND "_DIMORDINATE" CENPT PTY)
      (COMMAND "_DIMDIAMETER" ENT  PTDIA)

      (SETQ FLAG (1- FLAG))
   )
  (SETVAR "OSMODE" OMODE)
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)

)

gao051525

不赖啊，学习了。顶！

gao051525

好贴，学习了，顶！

hutengfei

八错

zhangrunze

坐标不能自定义圆点