明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2174|回复: 9

三角网三维多段线转三维面

[复制链接]
发表于 2015-12-1 20:27:46 | 显示全部楼层 |阅读模式
  1. (defun vxs (e / i v lst)
  2.   (setq i 0)
  3.   (while
  4.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
  5.      (setq lst (cons v lst))
  6.   )
  7.   (reverse lst))
  8. ;;;;;;;;;;;;;;;

  9. (setq ssa (ssget '((0 . "POLYLINE") (8 . "sjw"))))
  10.                 (setq ii   0
  11.                       no  0
  12.                   )
  13.                   (repeat (sslength ssa)
  14.                        (setq en (ssname ssa ii)
  15.                             ptb (vxs en)
  16.           pzx (append pzx (list ptb))
  17.            ii  (1+ ii)               )
  18.        ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))
  19.                        
  20.                   )
  21.   ;(write-line (strcat pzx) fff)
  22.                  ; (close fff)
  23.                   ;(princ (strcat "\n坐标已存入"" wjm ""中"))
  24.    
  25.     ;(setvar "cmdecho" cm)
  26.     (princ)


  27. (foreach n pzx

  28. (entmake  (list '(0 . "3dface") (cons 10 (nth 0 n))
  29.     (cons 11 (nth 1 n))
  30.                 (cons 12 (nth 2 n))
  31.                 (cons 13 (nth 0 n))
  32.                 '(8 . "0")
  33.     '(62 . 3)
  34.     )  )


  35.   )

评分

参与人数 1明经币 +3 金钱 +30 收起 理由
yfy2003 + 3 + 30 很给力!

查看全部评分

发表于 2015-12-2 09:01:08 | 显示全部楼层
转后有何用途?
 楼主| 发表于 2015-12-2 09:04:44 | 显示全部楼层
yshf 发表于 2015-12-2 09:01
转后有何用途?

可以三维动态观察
 楼主| 发表于 2015-12-2 09:26:25 | 显示全部楼层
  1. (defun c:3dface-polyline (  / pzx ii no ssa en ptb  )
  2. (defun vxs (e / i v lst)
  3.   (setq i (entget e))
  4.   (setq lst  (append (list(cdr(assoc 10 i)))  (list(cdr(assoc 11 i))) (list(cdr(assoc 12 i))) )  )
  5.   
  6.   )
  7. ;;;;;;;;;;;;;;;

  8. (setq ssa (ssget '((0 . "3dface") (8 . "sjw"))))
  9.                 (setq ii   0
  10.                       no  0
  11.                   )
  12.                   (repeat (sslength ssa)
  13.                        (setq en (ssname ssa ii)
  14.                             ptb (vxs en)
  15.           pzx (append pzx (list ptb))
  16.            ii  (1+ ii)               )
  17.        ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))
  18.                        
  19.                   )
  20.   ;(write-line (strcat pzx) fff)
  21.                  ; (close fff)
  22.                   ;(princ (strcat "\n坐标已存入"" wjm ""中"))
  23.    
  24.     ;(setvar "cmdecho" cm)
  25.     (princ)


  26. (foreach n pzx

  27. (command "3dpoly" (car n) (cadr n) (caddr n) "c")


  28.   )

  29. )
三角网三维面转POLYLINE

评分

参与人数 1明经币 +2 金钱 +12 收起 理由
yfy2003 + 2 + 12 赞一个!

查看全部评分

发表于 2015-12-2 20:36:33 | 显示全部楼层
能不能来个cad文件例子,试试
发表于 2015-12-7 14:58:02 | 显示全部楼层
给个动画图
发表于 2015-12-8 12:53:17 | 显示全部楼层
命令: 3DFACE-POLYLINE
选择对象: 找到 0 个
选择对象: 找到 0 个,总计 0 个
选择对象: 指定对角点: 找到 0 个,总计 0 个
选择对象:  ; 错误: 参数类型错误: lselsetp nil
发表于 2022-5-7 20:52:55 | 显示全部楼层
freehand8008 发表于 2015-12-8 12:53
命令: 3DFACE-POLYLINE
选择对象: 找到 0 个
选择对象: 找到 0 个,总计 0 个

我测试的也是
发表于 2022-6-7 14:49:44 | 显示全部楼层
yyds   yysd yyds
发表于 2022-9-10 12:52:32 | 显示全部楼层
顶一个,支持一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 00:42 , Processed in 0.172562 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表