大神，如何用 lisp 生成实体模型？能做得到吗？

mokson · 发表于 2019-9-12 08:25

本帖最后由 mokson 于 2019-9-12 08:33 编辑

我是做家具的，想用快捷的方法生成实体模型。
比如生成一个100*40*40的长方体，然后在它的中间位置再生成一个 50*10*10 凹槽。
用 lisp 能做得到吗？如果做不到，还有什么增强插件能做到得？可快速生成标准或自定义造型。
有这方面的同行请告知一下，先说声感谢大神~

pengfei2010 · 发表于 2019-9-15 08:44

世上无难事只怕有钱人

Andyhon · 发表于 2019-9-12 21:02

程序跟着需求走...

常用的图形样式
起始之初可试着串接命令列
也就是命令直接以 (COMMAND ....) 取代

比如绘制圆

Command: CIRCLE
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 0,0

Specify radius of circle or [Diameter]: 3

替代===>

(Command "Circle" "0,0" "3")
===
(Command "Circle" '(0 0) 3)

改成等 User 回应
(Command "Circle" pause pause)

more...

应用在二维平面 / 三维上皆可

当然亦可先借助函数运算解值再套用

nzl1116 · 发表于 2019-9-13 10:02

(defun C:ttt (/ MSpace)
  (setq MSpace (vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object))))
  (vla-boolean
(vla-AddBox MSpace (vlax-3d-point '(0. 0. 20.)) 100. 40. 40.)
acSubtraction
(vla-AddBox MSpace (vlax-3d-point '(0. 0. 40.)) 50. 10. 20.)
  )
  (vlax-release-object MSpace)
  (princ)
)

mokson · 发表于 2019-9-12 08:32

本帖最后由 mokson 于 2019-9-12 08:35 编辑

当然不是组合的部件一次性生成，而是其中的某个部件可以自定义生成。
比如：尺寸参数化，刀形可自定义，随意打孔，出榫，锣槽等。
其它专业的3D软件可以实现，但用 lisp 能做得到吗？

nzl1116 · 发表于 2019-9-12 11:53

这个肯定可以办到

mokson · 发表于 2019-9-12 19:55

99%的 lisp 都只是应用在二维平面上，很少见到应用在实体模型的 lisp ,几乎没有

t18-13nil · 发表于 2019-9-13 14:25

lisp能画这个，但更费劲，但其它三维软件画就更轻松。随便几下拉出模型，再把几个参数用程序驱动就可以了。

xyp1964 · 发表于 2019-9-13 21:43

;; 只要参数统一，实现都没问题

前生 · 发表于 2019-9-13 23:07

CAD我从不涉及3D，虽然，我也知道，CAD可以做3D ,
世界上没有绝对的事

sunny_8848 · 发表于 2019-9-14 00:16

程序跟着需求走，不错的思路

账号		自动登录	找回密码
密码			注册

[提问] 大神，如何用 lisp 生成实体模型？能做得到吗？

本帖子中包含更多资源

本帖子中包含更多资源