李青松 发表于 2014-11-27 10:04:39

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


[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(Setq cvp-flt '(list

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    '(-4 . "<and")

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    '(0 . "VIEWPORT")

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    '(68 . 1)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (cons 410 (getvar "ctab"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    '(-4 . "and>")

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif cvp-flt (eval cvp-flt)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)(setq

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif cvp-data(entget (ssname (ssget "X" cvp-flt) 0))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif cvp-41   (cdr (assoc 41 cvp-data))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif cvp-45   (cdr (assoc 45 cvp-data))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif cvp-scale (/ cvp-45 cvp-41)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )


caogis 发表于 2015-9-1 07:10:02

选择视口看特性就有比例吧
页: [1]
查看完整版本: 查询视口比例 lisp 这段程序怎么运行