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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [分享]：复义线增肥工具，呵呵
返回列表 发新帖
查看: 1320|回复: 11

[分享]：复义线增肥工具，呵呵

[复制链接]
wkai
发表于 2004-1-4 22:10:39 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
给复义线增加节点，而不改变复义线的形状，特殊的场合用得到。

  3.   [FONT=courier new]
  4. (defun c:tt (/ obj ent pp n m m1 m2 pn newv bg1 bg2 a b bg)
  5.   (setq        OBJ  (vlax-ename->vla-object (car (setq ent (entsel))))
  6.         PP   (vlax-curve-getclosestpointto OBJ (cadr ent))
  7.         N    (fix (setq m (vlax-curve-getparamatpoint OBJ PP)))
  8.         m1   (- m n)
  9.         m2   (- 1 m1)
  10.         bg   (vla-getbulge obj n)
  11.         pn   pp
  12.         PN   (list (car PN) (cadr PN))
  13.         NEWV (vlax-safearray-fill
  14.                (vlax-make-safearray vlax-vbdouble '(0 . 1))
  15.                PN
  16.              )
  17.   )
  18.   (vla-addvertex OBJ (1+ N) NEWV)
  19.   (if (= 0 bg)
  20.     ()
  21.     (progn
  22.       (setq a (* (atan bg) m1))
  23.       (setq b (* (atan bg) m2))
  24.       (vla-setbulge obj n (/ (sin a) (cos a)))
  25.       (vla-setbulge obj (1+ n) (/ (sin b) (cos b)))
  26.     )
  27.   )
  28. )
  29.   [/FONT]
obj, vlax, setq

相关帖子

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

使用道具 举报

陌生人
发表于 2004-1-4 23:51:17 | 显示全部楼层
好！ 程序看起来感觉很舒服。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2004-1-5 01:24:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我觉得加入的那一点应该再给个机会点一下，因为entsel的时候，很难点到想要的点.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
发表于 2004-1-5 01:34:32 | 显示全部楼层
为什么“entsel的时候，很难点到想要的点.”？
(vlax-curve-getclosestpointto OBJ (cadr ent))
已经得到曲线上的最近点了

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

使用道具 举报

wkai
 楼主| 发表于 2004-1-5 09:53:29 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
有时候多点一下会很烦的，有时候太过机巧也很烦~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2004-1-5 21:39:51 | 显示全部楼层
最初由 陌生人 发布
[B]为什么“entsel的时候，很难点到想要的点.”？
(vlax-curve-getclosestpointto OBJ (cadr ent))
已经得到曲线上的最近点了

如果还不行，建议换鼠标。 [/B]


一般加入的点肯定是比较特殊的.
比如:和其他线的交点，直接在交点上选，不一定能选到你要的线.



  3. [php]
  4. (defun c:tt ( / obj ent pp n m m1 m2 pn newv bg1 bg2 a b bg p1)
  5.   (setq        OBJ  (vlax-ename->vla-object (car (setq ent (entsel))))
  6.                       p1    (getpoint"\n选加入的点,回车缺省:")
  7.         PP   (vlax-curve-getclosestpointto OBJ (if p1 p1(cadr ent)))
  8.         N    (fix (setq m (vlax-curve-getparamatpoint OBJ PP)))
  9.         m1   (- m n)
  10.         m2   (- 1 m1)
  11.         bg   (vla-getbulge obj n)
  12.         pn   pp
  13.         PN   (list (car PN) (cadr PN))
  14.         NEWV (vlax-safearray-fill
  15.                (vlax-make-safearray vlax-vbdouble '(0 . 1))
  16.                PN
  17.              )
  18.   )
  19.   (vla-addvertex OBJ (1+ N) NEWV)
  20.   (if (/= 0 bg)
  21.     (progn
  22.       (setq a (* (atan bg) m1))
  23.       (setq b (* (atan bg) m2))
  24.       (vla-setbulge obj n (/ (sin a) (cos a)))
  25.       (vla-setbulge obj (1+ n) (/ (sin b) (cos b)))
  26.     )
  27.   )
  28. )
  29. [/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
发表于 2004-1-6 00:07:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
哇哈，你的程序代码怎么用颜色显示的？每个改颜色的地方加颜色代码么？
看上去挺cool的么：）建议括号用深一些的颜色。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

usercoolboy
发表于 2005-2-22 15:38:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
3dpolyline怎么转换成polyline而已不失等值特性？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyz518mm
发表于 2005-6-12 20:48:12 | 显示全部楼层
很不錯用的程序
但是不能連續
如果可以連續
那就更方便了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

小钉子
发表于 2005-6-13 12:43:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
嗯
真的有用啊
我怎么就写不出来呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tgh56
发表于 2005-6-13 12:55:00 | 显示全部楼层
这个程序对LWPOLYLINE线有用,而对POLYLINE线不起作用，如果楼主优化一下程序使POLYLINE也行的话，这个程序就算完美了！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-28 06:48 , Processed in 0.395277 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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