lisp以缩放到新导入的

Roy_043 · 发表于 2022-7-5 18:04:31

@塔尔瓦特：
这可能会引起兴趣：
https://www.theswamp.org/index.php?topic=35254.msg404955#msg404955

Tharwat · 发表于 2022-7-5 18:08:34

谢谢你，罗伊。

Yes to go with bounding box应该比每个块的插入点要好一点，尽管我认为用我提供的代码进行OP已经足够了。

Lee Mac · 发表于 2022-7-5 18:13:04

我没有看到原始代码，但如果我理解了请求，我相信可以编写函数：

(DEFUN PI:INSERT3DPOINTS (POINTSLIST POINTFORMAT / NODELAYERFORMAT POINTLIST mip map)
   (SETQ NODELAYERFORMAT (PI:GETNODELAYERFORMAT POINTFORMAT))
   (setq mip (caar POINTSLIST)
         map (caar POINTSLIST)
   )
   (COMMAND "._undo" "_group")
   (FOREACH POINTLIST POINTSLIST
       (PI:MAKELAYER NODELAYERFORMAT POINTLIST POINTFORMAT)
       (COMMAND "._point" (CAR POINTLIST))
       (setq mip (mapcar 'min mip (CAR POINTLIST))
             map (mapcar 'max map (CAR POINTLIST))
       )
   )
   (command "_.zoom" "_w" "_non" mip "_non" map)
   (COMMAND "._undo" "_end")
)

[编程交流] lisp以缩放到新导入的

发表回复

精选推荐