求教！块单位有没有办法用Lisp进行修改

xiaocainiao

请教一下各位大神！
图块单位有没有办法用lisp修改为毫米、如上图：
没有找到对应组码、也没找到相关函数、不知道怎么修改了

vitalgg

xiaocainiao 发表于 2024-4-14 10:20
如果块单位是英寸、将块比例改为1就不对了、与实际尺寸差的多、你看我发的那个样例就知道了、这个不能改 ...

在特性对话框中显示的缩放比例跟图形实际的dxf 41 42 43 组码对应的缩放比例值是不同的。
特性对话框中显示的缩放比例值是dxf组码经过单位换算后的值。
你改dxf 41 42 43 组码值就可以无视单位换算。

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText)))
   
2. (setq blkref (ssname(ssget ":S:E" '((0 . "insert")))0))
   
3. (entity:putdxf blkref 41 1)
   
4. (entity:putdxf blkref 42 1)
   
5. (entity:putdxf blkref 43 1))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText)))<br /> (setq blkref (ssname(ssget ":S:E" '((0 . "insert")))0))<br /> (entity:putdxf blkref 41 1)<br /> (entity:putdxf blkref 42 1)<br /> (entity:putdxf blkref 43 1))

vitalgg

将块“床” 改成 无单位 ，如果改毫米的话把0改为4

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. (vla-put-units(block:get-obj-by-name "床") 0) ;; 如果改毫米的话把0改为4

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (vla-put-units(block:get-obj-by-name "床") 0) ;; 如果改毫米的话把0改为4

liuhe

指定与块一起保存的插入单位。

语法

object.InsUnits

object

BlockRef, ExternalReference, MInsertBlock
使用该属性的对象。

InsUnits

String[字符串]; 只读

说明

InsUnits 属性是块作者为块参照定义的本地单位。当块插入到单位已经定义好的图形中时，块将自动缩放对应到 InsUnitsFactor，它是块单位与当前图形单位间的转换因子。


只读 只读 只读

是你的图纸问题，用错样板了吧

嘒彼小星

这个是在建块之前的单位设置。要么遍历块对象后改了单位为毫米重建块

飞雪神光

发个图看看

xiaocainiao

飞雪神光 发表于 2024-4-13 20:25
发个图看看

上传了、谢谢

xiaocainiao

liuhe 发表于 2024-4-13 20:13
指定与块一起保存的插入单位。

语法

样板文件的块插入单位是毫米、但是图块本身的单位是英寸、这个我猜是做块时设置的块单位是英寸、就是B命令组块的时候有个单位设置

xiaocainiao

嘒彼小星 发表于 2024-4-13 20:13
这个是在建块之前的单位设置。要么遍历块对象后改了单位为毫米重建块

重新建块这个不太好搞了、主要是有些可能是动态块

vitalgg

dwg本身是无单位的。 insunits是在插入块时与dwg本身定义的单位不同时，对块进行缩放。让你觉得进行单位换算了。
把插入后的块参照的缩放比例改为1 就可以了。

飞雪神光

搞不定 我觉得也是要重做

xiaocainiao

vitalgg 发表于 2024-4-14 09:53
dwg本身是无单位的。 insunits是在插入块时与dwg本身定义的单位不同时，对块进行缩放。让你觉得进行单位换 ...

如果块单位是英寸、将块比例改为1就不对了、与实际尺寸差的多、你看我发的那个样例就知道了、这个不能改比例、每次我都是手动进块编辑器后改块单位才行