设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：样条曲线转化多义线
返回列表 发新帖
查看: 940|回复: 5

[求助] [求助]：样条曲线转化多义线

[复制链接]
fjfdsd_lcl
发表于 2003-9-11 10:28:47 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
哪位仁兄有办法把样条曲线转化为多义线？
多义, 曲线, 仁兄

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

绘图员
发表于 2003-9-15 11:17:30 | 显示全部楼层
这是别人的程序，你看能不能借鉴一下

  2. (Defun C:SB ()
  3.        (Defun SPoint (sen)
  4.               (SetQ sel (EntGet sen) snn 0 spl '())
  5.               (While (SetQ spp (Nth snn sel))
  6.                      (If (= 10 (Car spp)) (SetQ spl (Cons spp spl)))
  7.                      (SetQ snn (1+ snn))
  8.               )
  9.               (List (Car spl)(Last spl))
  10.        )
  11.        (SetQ se (Car (EntSel "\n选定要转化成多段线的样条线 (SPline): "))
  12.              sn (GetInt "\n逼近用直线段的长度: ")
  13.              sp (SPoint se)
  14.              sc (GetVar "cecolor")
  15.        )
  16.        (SetQ ts (GetVar "cdate"))
  17.        (Command "color" 123
  18.                 "measure" (List se (Cdr (Car sp))) sn
  19.        )
  20.        (SetQ ss (SSGet "x" '((62 . 123)(0 . "POINT")))
  21.              sn (SSLength ss) snn (1- sn)
  22.        )
  23.        (SetVar "cecolor" sc)
  24.        (SetQ newpl '())
  25.        (Repeat sn
  26.                (SetQ spn (SSName ss snn))
  27.                (SetQ sdp (Assoc 10 (EntGet spn)))
  28.                (SetQ snn (1- snn))
  29.                (EntDel spn)
  30.                (SetQ newpl (Cons sdp newpl))
  31.        )
  32.        (EntMake '((0 . "POLYLINE")(70 . 8)))
  33.        (EntMake (List '(0 . "VERTEX") '(70 . 32) (Car sp)))
  34.        (ForEach pp newpl (EntMake (List '(0 . "VERTEX") '(70 . 32) pp)))
  35.        (EntMake (List '(0 . "VERTEX") '(70 . 32) (Cadr sp)))
  36.        (EntMake '((0 . "SEQEND")))
  37.        (SetQ te (GetVar "cdate") tt (* 1000000 (- te ts)))
  38.        (Alert (StrCat "EntMake 生成完了。\n共耗时" (RToS tt 2 4) "秒..."))
  39.        (EntDel se)
  40.        (PrinC)
  41. )
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lsjjm
发表于 2003-11-4 08:15:33 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

Re: [求助]：样条曲线转化多义线

最初由 fjfdsd_lcl 发布
[B]哪位仁兄有办法把样条曲线转化为多义线？ [/B]


参见:
http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=14
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zb_lou
发表于 2003-11-21 02:02:35 | 显示全部楼层
3楼的网址好像没什么东西........
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
发表于 2003-11-21 02:19:01 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
2楼的逼近可惜是直线段,没有发挥pline的曲线段功能
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lsjjm
发表于 2003-11-21 10:14:00 | 显示全部楼层
最初由 zb_lou 发布
[B]3楼的网址好像没什么东西........ [/B]


TRY THIS ONE:
http://www.xdcad.net/forum/showthread.php?threadid=77897
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-26 19:16 , Processed in 0.282603 second(s), 43 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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