块改单位为毫米

liuhe

求教！块单位有没有办法用Lisp进行修改 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)


回答此帖子，研究一早上。
原来需要修改块定义

1. (DEFUN C:TT (/ E)
   
2.   (SETQ E (ENTSEL))
   
3.   (IF (OR (NOT E) (/= (CDR (ASSOC 0 (ENTGET(CAR  E)))) "INSERT"))
   
4.     (VL-EXIT-WITH-VALUE 0)
   
5.   )
   
6.   (VLA-PUT-UNITS
   
7.     (VLA-ITEM (VLA-GET-BLOCKS
   
8.     (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
   
9.         )
   
10.         (VLA-GET-EffectiveName
    
11.     (VLAX-ENAME->VLA-OBJECT (CAR  E))
    
12.         )
    
13.     )
    
14.     4;;;改成毫米
    
15.   )
    
16.   (PRINC)
    
17. )
    
18. 
    
19. 
    

复制代码

INSUNITS（系统变量）

指定插入或附着到图形时，块、图像或外部参照进行自动缩放所使用的图形单位值。

类型:	整数
保存位置:	图形
初始值:	1（英制）或 4（公制）

注： 将注释性块插入图形时将忽略 INSUNITS 设置。

值

说明

0

不指定（无单位）

1

英寸

2

英尺

3

英里

4

毫米

5

厘米

6

米

7

千米

8

微英寸

9

英里

10

码

11

埃

12

毫微米

13

微米

14

分米

15

十米

16

百米

17

百万公里

18

天文单位

19

光年

20

秒差距

21

美制测量英尺

注： 美制测量英尺是一个历史测量单位，大约大于国际英尺单位 2 百万分率。在美国，此差异只有在按比例用于映射时才比较明显。从基于 AutoCAD 2017 的产品开始，美制测量英尺设置仅支持用于插入或附着图形。使用早期版本打开的图形会将美制测量英尺设置视为“无单位”。

lxl217114

非常好的分享，楼主一旦研究就研究的透透的。

paulpipi

感谢分享，谢谢！

jkop

收藏！有时会碰到类似问题！