[LISP程序]：在命令行打印实体链表

cad_cae_king

*-*b

设定尺寸比例与图框比例相匹配 (需要定义dim层)
(defun c:dimsc()
(setvar "cmdecho" 0)
  (command "undo" "be")
  (setq f(car(entsel "\n请选择对应图框:")))
  (command "ucs" "d" "uc")
  (command "ucs" "s" "uc" "ucs" "")
  (setq sc (* (cdr (assoc 41 (entget f))) 0.8))
  (setvar "dimscale" sc)
  (setvar "clayer" "DIM")
  (command "ucs" "r" "uc")
  (command "undo" "e")
  (princ "\n 尺寸比例为：")
  (princ sc)
  )

cad_cae_king

*-*b

(defun c:ttt ()
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq f(car(entsel "\n请选择对应图框:")))
  (command "ucs" "d" "uc")
  (command "ucs" "s" "uc" "ucs" "")
  (setq sc (cdr (assoc 41 (entget f))))
  (setq p (cdr (assoc 10 (entget f))))
  (setq fo (cdr (assoc 2 (entget f))))
;;;  (if(= fo "A4") (setq x1(- (car  p) (* sc 103.9325))
;;;                       y1(- (cadr p) (* sc 144.8206))
;;;                       x2(+ (car  p) (* sc  96.0675))
;;;                       y2(+ (cadr p) (* sc 144.1794))))
  (if(= fo "fdf") (setq x1(- (car p) (* sc 0))
                       y1(- (cadr p) (* sc 0))
                       x2(+ (car p) (* sc 284))
                       
                       y2(+ (cadr p) (* sc 195))))
  (setq p1 (list x1 y1) p2 (list x2 y2))
  (setq ss1 (ssget "w" p1 p2 (list (cons 0 "dimension"))))  
  (command "dimoverride" "dimscale" sc "dimtxt" 2.0 "" "p" "")
  (command "ltscale" sc "regen")
  (prompt "\n请选择要改变字高的文字:")
  (setq ss (ssget (list (cons 0 "text"))))
  (setq h (* sc 2.0))
  (if ss (setq i (sslength ss))(setq i 0))
  (setq j 0)
  (repeat i
    (setq en (ssname ss j))
    (setq j (+ j 1))
    (setq ed (entget en))
    (setq en2 (assoc 40 ed))
    (setq en1 (cons 40 h))
    (setq ed (subst en1 en2 ed))
    (entmod ed)
    )
  (command "ucs" "r" "uc")
  (command "undo" "e")
  (princ)
  )

cad_cae_king

*-*b

(defun c:listEnt()
  (princ (entget (ssname  (ssget) 0)))
)