yang686526

关于2d转换为3d的问题
www.dimcax.com
关于2d转换为3d的问题
老顾来下，图已上传，谢谢。
16

但是具体怎么用呢

这好像是个求助贴呀，楼主上传的是什么东东呀

不知道是什么呢？是问题吗？还是怎么样的？
学习机械是我梦想

只能说，忒强了！

如果真解决了，3d转2d简直是小菜一碟呀

他要的是2dpline线路变为3d的3dpoly线
不是把2d图变3d图.去看我编的一个软件.
(defun cl-3dpl ()
(while (setq een (entsel))
(setq enn (car een) en (entget enn) p1 nil n nil)
(if (= (cdr (assoc 0 en)) "lwpolyline")
(progn
(setq i (cdr (assoc 90 en)) h (cdr (assoc 38 en)) n 16)
(setq p1 (nth n en) pp (list (cadr p1)(caddr p1) h))
(command "erase" enn """3dpoly" pp )
(repeat (- i 1)
(setq n (+ n 4) p1 (nth n en) pp (list (cadr p1)(caddr p1) h))
(command pp)
)
(command "")
)
(prompt "不是平面pline线"))
(prompt "不选择回车就退出:")
)
)
gbg

该主题已被管理员屏蔽!

car een) en (entget enn) p1 nil n nil)
(if (= (cdr (assoc 0 en)) "lwpolyline")
(progn
(setq i (cdr (assoc 90 en)) h (cdr (assoc 38 en)) n 16)
(setq p1 (nth n en) pp (list (cadr p1)(caddr p1) h))
(command "erase" enn """3dpoly" pp )
(repeat (- i 1)
(setq n (+ n 4) p1 (nth n en) pp (list (cadr p1)(caddr p1) h))
(command pp)
)

该主题已被管理员屏蔽!

用了