xdate(功能:注解輸出)

spring · 发表于 2003-8-8 20:15:00

;;;功能:注解輸出
;;;By Spring
;;;08/08-03
;;;______________________________________________________
;;;錯誤處理函數
(defun ai_error       (errmsg)
  (if errmsg
'("console break"
   "Function Cancelled"
   )
(princ (strcat "\nError: " errmsg))
  )
  (princ)
) ;_defun
;;;______________________________________________________
(defun C:TT1 (/             t_hight       ss       count       en          neu
            hcount ed       edd       circle_xy          rad
            cen    cen_x       cen_y       circle_x circle_y circle_xy
            n             listxy       tag       p1       ent
         )
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq old_error *error*)
  (setq *error* ai_error)
  (setq qq nil)
  (princ "\nText high "))
  (setq ss (ssget))
  (setq count 0)
  (while (> (sslength ss) count)
(setq en (ssname ss count))
(setq count (1+ count))
(setq neu (itoa count))
(setq hcount (strcat "h" neu))
(setq ed (entget en '("MY_TAG")))
(setq tag1 (cdr (cadr (cadr (assoc -3 ed)))))
(setq edd (entget en))
(if       (/= tag1 nil)
   (progn
      (if (= (cdr (assoc 0 edd)) "CIRCLE")
      (progn
         (setq circle_xy nil)
         (setq rad (cdr (assoc 40 ed)))
         (setq cen (cdr (assoc 10 ed)))
         (setq cen_x (car cen))
         (setq cen_y (nth 1 cen))
         (setq circle_x (+ cen_x (* 0.8 rad)))
         (setq circle_y (+ cen_y (* 0.8 rad)))
         (setq circle_xy (list circle_x circle_y))
         (command "UCS" "World")
         (command "TEXT" circle_xy t_hight 0 hcount)
         (command "UCS" &quotrev")
      )
      )                               ;if
      (if (= (cdr (assoc 0 edd)) "LWPOLYLINE")
      (progn
         (setq n 0)
         (setq listxy nil)
         (while (/= (nth n edd) nil)
            (if (= (car (nth n edd)) 10)
            (setq listxy (append listxy
                                 (list (list (cadr (nth n edd))
                                             (caddr (nth n edd))
                                       )
                                 )
                           )
            )
            )
            (setq n (1+ n))
         )
         (setq listxy (nth 2 listxy))
         (command "UCS" "World")
         (command "TEXT" listxy t_hight 0 hcount)
         (command "UCS" &quotrev")
      )
      )                               ;if
      (setq tag1 (strcat hcount ": " tag1))
      (setq qq (cons tag1 qq))
   )
)
  )                                     ;while
  (if (/= qq nil)
(progn
   (setq qq (reverse qq))
   (setq p1 (getpoint "\ninsert point"))
   (setq tag (nth 0 qq))
   (command "_.TEXT" p1 t_hight 0 tag)
   (setq qq (cdr qq))
   (foreach ent qq
      (command "_.TEXT" "" ent)
   )
)
(prompt "\n無標籤圖元可產生註解資料")
  )
  (setvar "cmdecho" cm)
  (setq *error* old_error)
  (princ)
)

ptjaqxpqnee.jpg

如何注解成如下形式

b3g050rd2b2.jpg