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

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

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

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





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

世上无难事 只怕有钱人

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

程序跟着需求走...

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

比如绘制圆

Command: CIRCLE
Specify center point for circle or : 0,0

Specify radius of circle or : 3

替代===>

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

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

more...

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

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

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

(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:25

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

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

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

这个肯定可以办到

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

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

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

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

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

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

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

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

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

程序跟着需求走，不错的思路
页: [1] 2
查看完整版本: 大神，如何用 lisp 生成实体模型？能做得到吗？