在三维环境中绘制矩形

Ramana · 发表于 2022-7-6 08:12:35

亲爱的朋友们：，

问候语

我试图在三维实体面上绘制一个矩形，我能够将ucs绘制到该面。但是当我给出第一个角点&相反的角点时，矩形是与我们的视图对齐的，而不是与ucs对齐的。

一旦我在这种情况下选择了点，它就会根据需要绘制到面上。

如何查看ucs的对角点。

请在这方面帮助我。

提前感谢

拉马纳

David Bethel · 发表于 2022-7-6 08:32:21

你能寄一个样品吗？“3D立体脸”有点矛盾-大卫

Ramana · 发表于 2022-7-6 08:45:17

尊敬的David：，

谢谢你的回复，请找到这两个图像和代码，我开发的布尔运算在一个固体。

copy


(DEFUN C:window()
 (SETQ FACE(GETPOINT "PICK A POINT ON THE FACE"))
 (COMMAND "ucs" "F" FACE "")
 (SETQ W(ENTLAST))
 (SETQ P1(GETPOINT "START PT OF WINDOW")
   P2(GETCORNER P1 "OPP OF WINDOW"))
 (TRANS P2 1 1)
 (COMMAND "RECTANG" P1 P2)
 (SETQ W1(ENTLAST))
 (COMMAND "EXTRUDE" W1 "" -200)
 (SETQ W2(ENTLAST))
 (COMMAND "SUBTRACT" W "" W2 "")
 (princ)
 );defun

Tharwat · 发表于 2022-7-6 08:55:23

带有选项面的ucs命令必须选择对象，而不是通过指定点。。
例如

copy

(if (setq obj (car (entsel "\n Select object :")))
 (command "_.ucs" "_face" obj "")
)

Ramana · 发表于 2022-7-6 09:04:08

尊敬的Tharwat先生：，

感谢您的回复，

我的程序运行良好，但在指定矩形的第一个角点和相对角点时，该矩形显示出与ucs对齐。一旦我选择了相反的角落，然后它是绘制矩形与适当的尺寸和三维布尔正在发生。

我的问题是，在拾取矩形的第一个角点和相对角点时，这些点应与ucs对齐，以便更好地理解自定义。

拉马纳

Tharwat · 发表于 2022-7-6 09:22:35

如果我理解的很好，用你的代码替换这行代码。

copy


(COMMAND "_.RECTANG" "_non" P1 "_non" P2)

[编程交流] 在三维环境中绘制矩形

发表回复

精选推荐