找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1586|回复: 4

[每日一码] [功能]沿多段线取点,弧处按角度加密取点

[复制链接]

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-1-6 10:26:04 | 显示全部楼层 |阅读模式

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

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

×
  1. ;;[功能]沿多段线取点,弧处按角度加密取点
  2.   ;;示例(LP:getpts (car (entsel)))
  3.   (defun LP:getpts (E / EN I II J L42 N PT PTLST X)
  4.     (defun get42 (en)
  5.       (mapcar 'cdr
  6.               (vl-remove-if-not '(lambda (x) (= (car x) 42)) en)
  7.       )
  8.     )
  9.     (setq en (enget e))
  10.     (setq l42 (get42 en))
  11.     (setq j 0)
  12.     (repeat (setq n (fix (vlax-curve-getEndParam e)))
  13.       (setq x (car l42))
  14.       (setq l42 (cdr l42))
  15.       (cond ((equal x 0)
  16.              (setq pt (vlax-curve-getPointAtParam e j))
  17.              (setq ptlst (cons pt ptlst))
  18.              (setq j (1+ j))
  19.             )
  20.             (T
  21.              (setq i (fix (/ (* (atan (abs x)) 180) pi)))   ;弧取点密度
  22.              (setq ii (/ 1.0 i))
  23.              (repeat i
  24.                (setq pt (vlax-curve-getPointAtParam e j))
  25.                (setq ptlst (cons pt ptlst))
  26.                (setq j (+ ii j))
  27.              )
  28.              (setq j (fix (+ 0.5 j)))
  29.             )
  30.       )
  31.     )
  32.     ptlst
  33.   )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2014-1-6 13:43:39 | 显示全部楼层
能多点文字介绍吗,或贴个图片。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8972个

财富等级: 富甲天下

发表于 2014-1-7 15:03:36 | 显示全部楼层
感谢黄老师分享程序!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-11-14 20:30:19 | 显示全部楼层
很有用 谢谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2020-7-26 14:50:48 | 显示全部楼层
谢谢版主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-14 21:49 , Processed in 0.179650 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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