[LISP程序]：不画图的lisp

teatree

快过年了,祝全国老百姓新年愉快,阖家幸福!

为了解决在屏幕上看图没有看实际图纸直观的问题,编了一个小程序,运行以后,在屏幕上看到的图形大小和图纸上是一样的.也可以算是另一种打印预览吧.

2. 
   
3. (defun c:vv (/ dh vs sc)
   
4.     (setvar "cmdecho" 0)
   
5.     (setq dh 148.5)   
   
6.   ;;拿一把尺子把acad绘图区高度量一下,用这个数值(毫米)代替上面148.5,那个是我测的
   
7.   (setq vs (getvar "viewsize"))
   
8.     (setq sc (getvar "dimscale"))
   
9.     (setq sc (/ (/ vs dh) sc))
   
10.     (setq sc (strcat (rtos sc 2 8) "x"))
    
11.     (command "zoom" sc)
    
12.   )

<br /> (defun c:vv (/ dh vs sc)<br />     (setvar "cmdecho" 0)<br />     (setq dh 148.5)   <br />   ;;拿一把尺子把acad绘图区高度量一下,用这个数值(毫米)代替上面148.5,那个是我测的<br />   (setq vs (getvar "viewsize"))<br />     (setq sc (getvar "dimscale"))<br />     (setq sc (/ (/ vs dh) sc))<br />     (setq sc (strcat (rtos sc 2 8) "x"))<br />     (command "zoom" sc)<br />   )

sunny_258

谢谢了！能自己编程真好。

ll_j

我也贴一段我自己的：
[php](defun c:zc (/ zc:pt1 zc_sc zc:h olderr oldzin newerr)

  (setq zc:h  188.0)          ;188.0为屏幕图形区实际高度（mm）

  (defun newerr        (s)
    (if (= s "Function cancelled")
      (progn
        (setq *error* olderr)
        (if oldzin (setvar "dimzin" oldzin))
      )
    )
    (princ)
  )
  (setq olderr *error*)
  (setq *error* newerr)
  (setq oldzin (getvar "dimzin"))
  (setvar "dimzin" 8)
  (if (not zc_scl)  (setq zc_scl 1.0))
  (initget "Scale")
  (setq zc:pt0 (getpoint (strcat "\n比例S(=" (rtos zc_scl) ")/实视图中心点: ")))
  (if (= zc:pt0 "Scale")
    (progn
      (initget 6)
      (setq zc_sc (getreal (strcat "\n视图比例< " (rtos zc_scl) " >: ")))
      (if zc_sc (setq zc_scl zc_sc))
      (c:zc)
    )
  )
  (if zc:pt0
    (progn
      (setq zc:y (/ 188.0 zc_scl))
      (command "_.zoom" "_c" zc:pt0 zc:y)
    )
  )
  (setvar "dimzin" oldzin)
  (setq *error* olderr)
  (princ)
)
[/php]

JOSDENNIS

我剛試了試這個程序, 好象和ZOOM命令一樣的效果, 還是不明白樓主的用意. 請教.

大尾巴狼

最初由 teatree 发布
[B]快过年了,祝全国老百姓新年愉快,阖家幸福!

为了解决在屏幕上看图没有看实际图纸直观的问题,编了一个小程序,运行以后,在屏幕上看到的图形大小和图纸上是一样的.也可以算是另一种打印预览吧.
[code]
(defun c:vv ... [/B]

短小精悍 好用

lse

“为了解决在屏幕上看图没有看实际图纸直观的问题,编了一个小程序,运行以后,在屏幕上看到的图形大小和图纸上是一样的.也可以算是另一种打印预览吧.”

找这个程序找很久了，但对于lisp我完全不懂，试着在2002里弄了下，没有反应

c52ljg

哈哈，好东西，收下了，多谢！

这么老的贴子咱也能翻到  ^_^

gallen

17寸跟19寸显示器,显示的都一样吗

它山之石

1楼楼主你的程序是将出图比例设定为实际比例的，
事实上现在大多数人都是按1：1的比例来绘图，按1：100等来出图的。
所以有偏差。我将代码改成下面：
    (setq sc (* (getvar "dimscale") 100))


3楼楼主的程序好象在比例设定时出错。比一楼的程序功能多点。

两位改进一下这个程序吧。

li809

它山之石说得很好,实际上这样的

狂刀

很久很久以前写的
[php]
(DEFUN C:asplt (/ sc xx yy pl)
(IF (NULL PLTSC) (SETQ sc (GETINT "\npltsc (1:?) :"))
     (if (= nil (setq sc (getint (strcat "\npltsc 1:<" pltsc ">:"))))
         (setq sc (atof pltsc))
)   )
(SETQ XX (* 245 sc) YY (* 156 sc) ;;245和156是实测显示区域
       pl (getpoint "\n select leftdown pt of window:"))
(COMMAND "_ZOOM" pl (STRCAT "@"(RTOS XX) "," (RTOS YY)))
)[/php]

gzlxlhy1965

ok!!!!

西爱弟

不错不错，最好能先打印出一张图纸量尺寸，设好参数大小.
另外用宏定义也能实现，而且更简单