功能:圓心自動標注

spring

;;;功能:圓心自動標注
;;;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 (< count sscount)
        (setq en (ssname ss count))
        (setq ed (entget en))
        (setq cen (cdr (assoc 10 ed)))
        (setq cen_x (- (car cen) (car p1)))
        (setq cen_y (- (cadr cen) (cadr p1)))
        (setq cen (append (list cen_x cen_y)))
        (setq x (polar cen 0 8))
        (setq y (polar cen (* pi 1.5) 8))
        (command "dimordinate" cen x)
        (command "dimordinate" cen y)
        (setq count (1+ count))
      )
    )
  )
  (command "_.UCS" "rev")
  (command "_.UNDO" "End")
  (setvar "cmdecho" cm)
  (setq *error* old_error)
  (princ)
)



中午寫了個園心標注程序,不過太不智能化了,希望大家能完善它.

前生

一般般

runkeji

作的什么，不明白。

spring

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

我認為程序太差了

congcong

一般般啦，不过还可以更完善一点。

cjun2258

~{Hg:N2ED\~}過濾~{5tM,PD~}圓~{GRJGP!~}圓~{#?NRJGPBJV~}請~{8_JV0fVwV8~}點

cjun2258

刚才是繁体字，所以不能显示，

我是新手请高手版主指点

如何才能过滤掉同心圆且是小圆？