功能:圓心自動標注

spring · 发表于 2003-9-2 13:34:00

;;;功能:圓心自動標注
;;;BY Spring
;;;09/02-03
;;;_______________________________________________________
(defun AI_ERROR       (errmsg)
  (if errmsg
'("console break"
   "Function Cancelled"
   )
(princ (strcat "\nError: " errmsg))
  )
  (princ)
)
;;;_______________________________________________________
(defun c:CIRDIM       (/       cm       old_error       *error* p1
               ss       count       sscount en       ed       cen_x
               cen_y       cen       x       y
            )
  (setvar "MODEMACRO" "***SPRING***")
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.UNDO" "Group")
  (setq old_error *error*)
  (setq *error* AI_ERROR)
  (command "_.UCS" "World")
  (setq p1 (getpoint "\n 請指定基準點 / "))
  (if p1
(progn
   (command "_.UCS" "O" P1)
   (setq ss (ssget '((0 . "CIRCLE"))))
   (setq count 0)
   (setq sscount (sslength ss))
   (while (~{Hg:N2ED\~}過濾~{5tM,PD~}圓~{GRJGP!~}圓~{#?NRJGPBJV~}請~{8_JV0fVwV8~}點

ezu22f123zt.bmp

前生 · 发表于 2003-9-2 15:29:00

刚才是繁体字，所以不能显示，
我是新手请高手版主指点
如何才能过滤掉同心圆且是小圆？

功能:圓心自動標注

发表回复

精选推荐