[编程申请]：CAD图形打印, 我搞不定.help

2002zjp

;;;;;--------------------------------------------------
;;;;; 电脑报的作品， 我搞不定，请求帮助
;;;;; 2002zjp@sohu.com　
;;;;; 说明：CAD图形打印 2001-03-26于杭州
;众多使用过AutoCAD的朋友都知道，AutoCAD2000的打印功能较
;以前的版本已大有提高。如果您想打印出一幅；图（譬如A3幅），
;但是您的打印机只能打印A4幅，这时您只有用打印功能里的窗选
;功能手工选择打印。为了；以后图形的拼接方便，您还得手工
;给出窗选点的坐标，实在烦琐。笔者用Visual Lisp编了个小程
;序，能够实；现从A3图幅到A4图幅的自动打印，稍加改动能够实
;现A1图幅到A3图幅的打印等，限于篇幅，这里不在详细介绍。
;原程序如下： ；；；打印主程序
;;;;;--------------------------------------------------

(Defun c:a34()
　　(Command "layer" "on" "*" "")
　　(initpt)
　　(Command "Plot" "w" (ret1 pt 1 0) (ret2 pt 2 1) "n")
　　(Command "Plot" "w" (ret1 pt 0 0) (ret2 pt 1 1) "n")
　　(Command "qsave" "y")
　　)
　　；；；－－－－－－－－－－－；；；
　　(Defun initpt()
　　(SetQ ptmax (Getvar "extmax")
　　a1 (Car ptmax)
　　a2 (Cadr ptmax)
　　ptmin (Getvar "extmin")
　　b1 (Car ptmin)
　　b2 (Cadr ptmin)
　　s3 0
　　lengthx (－ a1 b1)
　　lengthy (－ a2 b2)
　　factor (/ 2850 1980)
　　unitx (/ lengthx 2)
　　unity (* unitx factor)
　　)
　　(If (<； (/ lengthx 2) (* lengthy factor))
　　(Progn (SetQ unity (/ lengthy 2)
　　unitx (/ unity factor)
　　)
　　)
　　)对瘦长的图形进行长宽对调
　　)；；；确定图形的范围并对瘦长的图形进行"处理"；；；
　　；；；－－－－－－－－－－－－；；；
　　(Defun ret1 (Pt numx numy)
　　(SetQ s1 (* unitx numx)
　　s1 (＋ s1 b1)
　　s2 (* unity numy)
　　s2 (＋ s2 b2)
　　s3 0
　　pt (List s1 s2 s3)
　　)
　　)；；；求窗选点1
　　；；；－－－－－－－－－－－－；；；
　　(Defun ret2 (Pt numx numy)
　　(SetQ s1 (* unitx numx)
　　s2 (* unity numy)
　　s1 (＋ b1 (* s1 101))
　　s2 (* s2 101)
　　s3 0
　　pt (List s1 s2 s3)
　　)
　　)；；；求窗选点2；；；

XDSoft

有什么问题呢？

秋枫

其中的分号"；" 是全角的。可能是这个原因。
改成";"

雄啸

(If (<； (/ lengthx 2) (* lengthy factor))  >>>(If (< (/ lengthx 2) (* lengthy factor))
　s2 (＋ s2 b2) >>>　s2 (+ s2 b2)
qf说得对，很多符号是全角的，改过来。

2002zjp

我石扫描的，我试一试，谢谢诸位。

2002zjp

其中的分号"；"和"＋" 是全角的。我已经修改成了半角。但还是出错

2002zjp

高手哪里有？

XDSoft

最初由 2002zjp 发布
[B]高手哪里有？ [/B]

把出错信息贴到论坛吧。

2002zjp

Loading a34.lsp
Error:malformed list*Cancel*

eachy

最初由 2002zjp 发布
[B]Loading a34.lsp
Error:malformed list*Cancel* [/B]

里面的 ＋ －  ；号均为全角，括号不封闭，改了下。

1. 
   
2. (Defun c:a34 (/ initpt ret1 ret2)
   
3.   ;;-----------;;;
   
4.   (Defun initpt        ()
   
5.     (SetQ ptmax          (Getvar "extmax")
   
6.           a1          (Car ptmax)
   
7.           a2          (Cadr ptmax)
   
8.           ptmin          (Getvar "extmin")
   
9.           b1          (Car ptmin)
   
10.           b2          (Cadr ptmin)
    
11.           s3          0
    
12.           lengthx (- a1 b1)
    
13.           lengthy (- a2 b2)
    
14.           factor  (/ 2850 1980)
    
15.           nitx          (/ lengthx 2)
    
16.           nity          (* unitx factor)
    
17.     )
    
18.     ;;对瘦长的图形进行长宽对调　
    
19.     (If        (< (/ lengthx 2) (* lengthy factor))
    
20.       (Progn (SetQ unity (/ lengthy 2)
    
21.                    unitx (/ unity factor)
    
22.              )
    
23.       )
    
24.     )
    
25.   )
    
26.   ;;确定图形的范围并对瘦长的图形进行"处理";;;
    
27.   ;;------------;;;
    
28.   (Defun ret1 (Pt numx numy)
    
29.     (SetQ s1 (* unitx numx)
    
30.           s1 (+ s1 b1)
    
31.           s2 (* unity numy)
    
32.           s2 (+ s2 b2)
    
33.           s3 0
    
34.           pt (List s1 s2 s3)
    
35.     )
    
36.   )
    
37.   ;;求窗选点1
    
38.   ;;------------;;;
    
39.   (Defun ret2 (Pt numx numy)
    
40.     (SetQ s1 (* unitx numx)
    
41.           s2 (* unity numy)
    
42.           s1 (+ b1 (* s1 101))
    
43.           s2 (* s2 101)
    
44.           s3 0
    
45.           pt (List s1 s2 s3)
    
46.     )
    
47.     　　
    
48.   )
    
49.   ;;主程序
    
50.   (Command "layer" "on" "*" "")
    
51.   (initpt)
    
52.   (Command "Plot" "w" (ret1 pt 1 0) (ret2 pt 2 1) "n")
    
53.   (Command "Plot" "w" (ret1 pt 0 0) (ret2 pt 1 1) "n")
    
54.   (Command "qsave" "y")
    
55. )
    

复制代码

XDSoft

最初由 2002zjp 发布
[B]Loading a34.lsp
Error:malformed list*Cancel* [/B]

这个提示是是说：括号不匹配，有了提示，就可以找了，看看上面EACHY的代码，试试。

2002zjp

Command: a34
*Cancel*