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

xiaocainiao

飞雪神光 发表于 2024-4-14 10:20
搞不定 我觉得也是要重做

这个问题不常见、以前都是手动搞的、突然想用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))

xiaocainiao

vitalgg 发表于 2024-4-14 10:36
在特性对话框中显示的缩放比例跟图形实际的dxf 41 42 43 组码对应的缩放比例值是不同的。
特性对话框中 ...

大神！现在的问题是如何修改这个块单位、比例这个CAD自己就换算好了、现在不考虑比例问题

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

http://bbs.mjtd.com/thread-189872-1-1.html      

嘒彼小星

xiaocainiao 发表于 2024-4-14 07:58
重新建块这个不太好搞了、主要是有些可能是动态块

河流大佬开贴会你的问题了，看看代码把。

xiaocainiao

嘒彼小星 发表于 2024-4-14 14:42
河流大佬开贴会你的问题了，看看代码把。

收到、谢谢

xiaocainiao

liuhe 发表于 2024-4-14 11:34
http://bbs.mjtd.com/thread-189872-1-1.html

厉害了！谢谢大佬

xiaocainiao

vitalgg 发表于 2024-4-14 11:06
将块“床” 改成 无单位 ，如果改毫米的话把0改为4

谢谢！楼下有大神给出解决方案了、直接用vla-put-units函数就行了

vitalgg

xiaocainiao 发表于 2024-4-14 15:13
谢谢！楼下有大神给出解决方案了、直接用vla-put-units函数就行了

基本原理是一样的。我那个代码也是 vla-put-units 。