查询视口比例 lisp 这段程序怎么运行

李青松

• (Setq cvp-flt '(list
  
•     '(-4 . "<and")
  
•     '(0 . "VIEWPORT")
  
•     '(68 . 1)
  
•     (cons 410 (getvar "ctab"))
  
•     '(-4 . "and>")
  
•    )
  
• cvp-flt (eval cvp-flt)
  
•   )(setq
  
• cvp-data  (entget (ssname (ssget "X" cvp-flt) 0))
  
• cvp-41   (cdr (assoc 41 cvp-data))
  
• cvp-45   (cdr (assoc 45 cvp-data))
  
• cvp-scale (/ cvp-45 cvp-41)
  
•       )
  
  

caogis

选择视口看特性就有比例吧