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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 椭圆中心标记
返回列表 发新帖
查看: 1241|回复: 4

[研讨] 椭圆中心标记

[复制链接]
/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2013-11-19 09:19:51 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 /db_自贡黄明儒_ 于 2013-11-19 11:21 编辑

  1. ;;椭圆中心标记
  2. ;;用highflybir的程序改造一下
  3. (defun HH:ELLIPSEMark (ent / DXF MAJ P1 P10 P2 P3 P4 PTB PTD SS)
  4.   (setq dxf (entget ent))
  5.   (setq p10 (cdr (assoc 10 dxf)))
  6.   (if (and (setq ss (ssget "_C"
  7.                            p10
  8.                            p10
  9.                            (list '(-4 . "<or")          '(0 . "LINE")           '(-4 . "<and")
  10.                                  '(0 . "LWPOLYLINE")                   '(90 . 2)
  11.                                  '(-4 . "and>")          '(-4 . "or>")
  12.                                 )
  13.                     )
  14.            )
  15.            (> (sslength ss) 1)
  16.       )
  17.     nil
  18.     (progn
  19.       (setq maj (cdr (assoc 11 dxf)))
  20.       (setq ptb (vlax-curve-getPointAtParam ent (* pi 0.5)))
  21.       (setq ptd (vlax-curve-getPointAtParam ent (* pi 1.5)))
  22.       (setq p1 (mapcar '- ptd maj))
  23.       (setq p2 (mapcar '+ ptd maj))
  24.       (setq p3 (mapcar '+ ptb maj))
  25.       (setq p4 (mapcar '- ptb maj))
  26.       (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p3)))
  27.       (entmake (list (cons 0 "LINE") (cons 10 p2) (cons 11 p4)))
  28.     )
  29.   )
  30. )
  31. (defun C:W5 (/ EN)
  32.   (setq ent (car (entsel)))
  33.   (HH:ELLIPSEMark ent)
  34.   (princ)
  35. )
1.gif

评分

参与人数 2D豆 +11 收起 理由
xshrimp + 5 很给力!经验；技术要点；资料分享奖！
XDSoft + 6 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-11-19 09:36:25 | 显示全部楼层
再贴程序最好附带上个图片。功能复杂的做成动画最好。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-11-19 09:37:50 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是不是要判断Isclosed，椭圆段的话param可能为nil或出错
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-11-19 10:19:10 来自手机 | 显示全部楼层
黄老这几个Mark可以把画线部分提出来做单独函数，参数: (点 角度
xlength  ylength)

点评

/db_自贡黄明儒_
我用highflybir的程序改的 你说的，我还没有考虑到怎么做，既然你已经有思路，干脆搞一吧  详情 回复 发表于 2013-11-19 16:49
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2013-11-19 16:49:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2013-11-19 10:19
黄老这几个Mark可以把画线部分提出来做单独函数，参数: (点 角度
xlength  ylength)

我用highflybir的程序改的
你说的，我还没有考虑到怎么做，既然你已经有思路，干脆搞一吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-9-25 04:31 , Processed in 0.368045 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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