圆孔批量标注

F1619243 · 发表于 2012-6-3 15:10:46

本帖最后由 F1619243 于 2012-6-3 15:17 编辑

;圆孔批量标注
(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 · 发表于 2012-6-3 19:04:41

不赖啊，学习了。顶！

gao051525 · 发表于 2012-6-3 19:26:33

好贴，学习了，顶！

hutengfei · 发表于 2012-6-8 09:36:14

八错

zhangrunze · 发表于 2024-3-28 16:28:53

坐标不能自定义圆点

账号		自动登录	找回密码
密码			注册