Lisp写文字及循环函数

(defun text(content size ps ang justify layer / justify_code)
  (setq justify_code 1)
  (if (= justify "left") (setq justify_code 0))
  (if (= justify "right") (setq justify_code 2))
  (entmake (list '(0 . "TEXT") (cons 8 layer) (cons 1 content) (cons 10 ps) (cons 40 size) (cons 41 0.7) (cons 50 ang) (cons 72 justify_code) (cons 11 ps)))
)

(defun c:zf(/ ss n ent solar ent_data ent_type txt p)
  (setq ss (ssget))
  (setq n 0)
  (repeat (sslength ss)
    (setq ent (ssname ss n))
    (setq ent_data (entget ent))
    (setq ent_type (cdr (assoc 0 ent_data)))
    (if (= ent_type "TEXT")
      (progn
        ()
      )
    )
    (setq n (1+ n))
  )
  (princ)
)