插入具有不同

Lee Chu Chu · 发表于 2022-7-5 22:41:38

在LISP中有没有办法插入一个具有不同轴的特定比例的块？即，x轴为100，y轴为50，z轴为100。我不想看到对话框，我想能够在lisp中缩放轴。

hanhphuc · 发表于 2022-7-5 22:59:29

InsertBlock方法
签名
RetVal=对象。InsertBlock（插入点、名称、Xscale、Yscale、ZScale、旋转[、密码]）

例子：


(vl-load-com)
(vla-InsertBlock 
(vla-get-modelspace(vla-get-ActiveDocument(vlax-get-acad-object)))
(vlax-3d-point '(0 0 0)) "C:\\BLOCK.dwg" 100. 50. 100. 0.0 )

; 确保“BLOCK.dwg”是有效的名称和路径

David Bethel · 发表于 2022-7-5 23:12:18

也许吧：

copy


(entmake (list (cons 0 "INSERT")     
              (cons 2 "BLOCKNAME")    
              (cons 6 "BYLAYER")
              (cons 8 "0")
              (cons 10 (list 0.0 0.0 0.0))
              (cons 39 0.0)
              (cons 41 1.0)  ;;; X AXIS
              (cons 42 1.0)  ;;; Y AXIS
              (cons 43 1.0)  ;;; Z AXIS
              (cons 44 0.0)
              (cons 45 0.0)
              (cons 50 0.0)
              (cons 62 256)
              (cons 70 0)
              (cons 71 0)
              (cons 210 (list 0.0 0.0 1.0))))