块改单位为毫米

liuhe 发表于 2024-4-14 11:32:45

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

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

(DEFUN C:TT (/ E)
(SETQ E (ENTSEL))
(IF (OR (NOT E) (/= (CDR (ASSOC 0 (ENTGET(CARE)))) "INSERT"))
(VL-EXIT-WITH-VALUE 0)
)
(VLA-PUT-UNITS
(VLA-ITEM (VLA-GET-BLOCKS
(VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
   )
   (VLA-GET-EffectiveName
(VLAX-ENAME->VLA-OBJECT (CARE))
   )
)
4;;;改成毫米
)
(PRINC)
)

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 发表于 2024-4-14 14:33:43

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

paulpipi 发表于 2024-4-14 21:37:32

感谢分享，谢谢！

jkop 发表于 2024-4-16 08:44:45

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

页: [1]

明经CAD社区's Archiver

块改单位为毫米