[求助]：2002下用的好好的，2005下加载不起做用了，谁能帮我看一下

王建荣

为了方便，在编了一个优化Autocad变量的小lisp，在2002下用的好好的，到了2005，就是用不了，谁能帮我看一下

(defun set()
(command "viewres" "y" "20000")
(command "setvar" "dimzin" "8")
(command "setvar" "dimazin" "2")
(command "setvar" "dimassoc" "2")
(command "setvar" "attdia" "1")
(command "setvar" "dimdsep" ".")
(command "setvar" "dimzin" "8")
(command "setvar" "dimadec" "2")
(command "setvar" "dimdec" "3")
(command "setvar" "polarang" "15")
(command "setvar" "angbase" "0")
(command "setvar" "ltscale" "1")
(command "setvar" "mbuttonpan" "1")
(command "setvar" "blipmode" "0")
(command "setvar" "whiparc" "1")
(command "setvar" "skpoly" "1")
(command "setvar" "autosnap" "63")
(command "setvar" "pickstyle" "0")
(command "setvar" "textfill" "1")
(command "setvar" "wmfbkgnd" "0")
(command "setvar" "highlight" "1")
(command "setvar" "cursorsize" "100")
(command "setvar" "savetime" "10")
(command "setvar" "gripcolor" "1")
(command "setvar" "griphot" "3")
(command "setvar" "gripsize" "5")
(command "setvar" "aperture" "5")
(command "setvar" "pickbox" "5")
(command "setvar" "pickadd" "1")
(command "setvar" "shortcutmenu" "10")
(command "dragmode" "auto")
(command "-style" "PC_textstyle" "txt.shx,hztxt1.shx" "0" "0.80" "0" "N" "N" "N")
(command "-osnap" "nea,end,int,cen,qua,mid")
(command "setvar" "cmdecho" "1")
)

eachy

你的函数名和lisp内部函数冲突，高版本会检测，字体必须保证在搜索路径

2. 
   
3. (defun c:myset ()
   
4.   (mapcar '(lambda (a)
   
5.              (setvar (car a) (cdr a))
   
6.            )
   
7.           '(("dimzin" . 8)
   
8.             ("dimassoc" . 2)
   
9.             ("attdia" . 1)
   
10.             ("dimadec" . 2)
    
11.             ("polarang" . 15)
    
12.             ("angbase" . 0)
    
13.             ("ltscale" . 1)
    
14.             ("mbuttonpan" . 1)
    
15.             ("blipmode" . 0)
    
16.             ("whiparc" . 1)
    
17.             ("skpoly" . 1)
    
18.             ("autosnap" . 63)
    
19.             ("pickstyle" . 0)
    
20.             ("wmfbkgnd" . 0)
    
21.             ("highlight" . 1)
    
22.             ("savetime" . 10)
    
23.             ("gripcolor" . 1)
    
24.             ("griphot" . 3)
    
25.             ("gripsize" . 5)
    
26.             ("aperture" . 5)
    
27.             ("pickbox" . 5)
    
28.             ("shortcutmenu" . 10)
    
29.             ("cmdecho" . 0)
    
30.             ("dimdsep" . ".")
    
31.             ("textfill" . 1)
    
32.             ("cursorsize" . 100)
    
33.             ("pickadd" . 1)
    
34.             ("dragmode" . 2)
    
35.             ("osmode" . 567)
    
36.            )
    
37.   )
    
38.   (command "viewres" "y" "20000")
    
39.   (command "-style"         "PC_textstyle"
    
40.            "txt.shx,hztxt1.shx"               "0"             "0.80"
    
41.            "0"                 "N"               "N"             "N"
    
42.           )
    
43.   (setvar "cmdecho" 1)
    
44.   (princ)
    
45. )

<br /> (defun c:myset ()<br />   (mapcar '(lambda (a)<br />              (setvar (car a) (cdr a))<br />            )<br />           '(("dimzin" . 8)<br />             ("dimassoc" . 2)<br />             ("attdia" . 1)<br />             ("dimadec" . 2)<br />             ("polarang" . 15)<br />             ("angbase" . 0)<br />             ("ltscale" . 1)<br />             ("mbuttonpan" . 1)<br />             ("blipmode" . 0)<br />             ("whiparc" . 1)<br />             ("skpoly" . 1)<br />             ("autosnap" . 63)<br />             ("pickstyle" . 0)<br />             ("wmfbkgnd" . 0)<br />             ("highlight" . 1)<br />             ("savetime" . 10)<br />             ("gripcolor" . 1)<br />             ("griphot" . 3)<br />             ("gripsize" . 5)<br />             ("aperture" . 5)<br />             ("pickbox" . 5)<br />             ("shortcutmenu" . 10)<br />             ("cmdecho" . 0)<br />             ("dimdsep" . ".")<br />             ("textfill" . 1)<br />             ("cursorsize" . 100)<br />             ("pickadd" . 1)<br />             ("dragmode" . 2)<br />             ("osmode" . 567)<br />            )<br />   )<br />   (command "viewres" "y" "20000")<br />   (command "-style"         "PC_textstyle"<br />            "txt.shx,hztxt1.shx"               "0"             "0.80"<br />            "0"                 "N"               "N"             "N"<br />           )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

王建荣

不行啊，加载完后无任何出错提示
依然提示　nil
就是附值一没上去，设置不起作用。

eachy

最初由 王建荣 发布
[B]不行啊，加载完后无任何出错提示
依然提示　nil
就是附值一没上去，设置不起作用。 [/B]

这个程序加载正确就没有提示，你说的哪个不起作用？
建议你运行完成后运行 setvar  命令，看设置是否完成。

梦断江南

没细看,会不会有旧版的系统变量?

aeo

可以一条条paste进cad试一试，看到底哪条出错了.

王建荣

哦，那个OSMODE就是没法设。
这是用Setvar设置的。

王建荣

改成直接用OSNAP命令.
在Lisp中不行，用手工输入就行了。

梦断江南

是qua和cen冲突吧

eachy

Lisp  设置没有问题， AutoCAD 2005cn + SP1 （XP+SP1）
命令: osmode

输入 OSMODE 的新值 <16>:

命令: (setvar "osmode" 567)
567

命令: osmode

输入 OSMODE 的新值 <567>: *取消*

王建荣

看来是我的机器有问题了，

这是家中2004版的现象，我试过2004与2005出现的现象是一样的，明天上单位去式2005版。

Command: osmode

Enter new value for OSMODE <16>:

Command: (setvar "osmode" 567)
567

Command: osmode

Enter new value for OSMODE <16>:


晕死2005中文版

命令: osmode

输入 OSMODE 的新值 <16384>:

命令: (setvar "osmode" 567)
567

命令: osmode

输入 OSMODE 的新值 <16384>: