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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 画轴剖面
12下一页
返回列表 发新帖
查看: 8677|回复: 33

[研讨] 画轴剖面

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

已领礼包: 604个

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

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

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

×
本帖最后由 /db_自贡黄明儒_ 于 2014-4-29 13:18 编辑
  2. (defun C:w1 (/ CMD1 FIL OSM1 P1 P2 SS)
  3.   (defun *error* (msg)
  4.     (vl-bt)
  5.     (if        *DOC*
  6.       (_EndUndo *DOC*)                                            ;块内图元增减
  7.     )
  8.     (while (not (equal (getvar "cmdnames") "")) (command nil))
  9.     (cond (cmd1 (setvar "cmdecho" cmd1)))
  10.     (princ "\n 出错啦!")
  11.     (princ)
  12.   )
  13.   (setq        fil '((-4 . "<or")
  14.               (-4 . "<and")
  15.               (0 . "LWPOLYLINE")
  16.               (90 . 2)
  17.               (-4 . "and>")
  18.               (0 . "LINE")
  19.               (-4 . "or>")
  20.              )
  21.   )
  22.   (cond
  23.     ((and
  24.        (setq p1 (getpoint))
  25.        (setq p2 (getpoint p1))
  26.        (setq ss (ssget "_C" p1 p2 fil))
  27.        (> (sslength ss) 1)
  28.      )
  29.      (vl-load-com)
  30.      (or *DOC*
  31.          (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))
  32.      )
  33.      (_StartUndo *DOC*)
  34.      (HH:ayOSMode nil)
  35.      (setq cmd1 (getvar "cmdecho"))
  36.      (setvar "cmdecho" 0)
  37.      (VL-CATCH-ALL-APPLY 'HH::pmDo (list p1 p2 ss))
  38.      (setvar "cmdecho" cmd1)
  39.      (HH:ayOSMode T)
  40.      (_EndUndo *DOC*)
  41.      (gc)
  42.     )
  43.   )
  44.   (princ)
  45. )

  47. (defun HH::pmDo        (p1 p2 ss / ANG DIST E E1 E2 EP EP1 EP2 LENT1 LENT2 LST N SP SP1 SP2)
  48.   (repeat (setq n (sslength ss))
  49.     (setq e (ssname ss (setq n (1- n))))
  50.     (setq sp (vlax-curve-getStartPoint e))
  51.     (setq Ep (vlax-curve-getEndPoint e))
  52.     (setq dist (car (trans (mapcar '- p1 sp) 0 (mapcar '- Ep sp))))
  53.     (setq lst (cons (list (abs dist) e) lst))
  54.     (setq lst (HH:ssPts:Sort lst "x" 0.1))                    ;排序
  55.   )
  56.   (setq e1 (cadar lst))
  57.   (setq e2 (cadr (last lst)))
  58.   (setq ang (angle p1 p2))
  59.   (setq dist (* (distance p1 p2) 0.25))
  60.   (setq sp1 (vlax-curve-getStartPoint e1))
  61.   (setq Ep1 (vlax-curve-getEndPoint e1))
  62.   (setq sp2 (vlax-curve-getStartPoint e2))
  63.   (setq Ep2 (vlax-curve-getEndPoint e2))
  64.   (setq sp (polar p1 (+ ang (* pi 0.5)) dist))
  65.   (setq Ep (polar p2 (+ ang (* pi 0.5)) dist))
  66.   (HH::pmDo2P (inters sp1 Ep1 sp Ep T) (inters sp2 Ep2 sp Ep T) ang)
  67.   (setq Lent1 (entlast))
  68.   (setq ang (+ ang pi))
  69.   (setq sp (polar p1 (+ ang (* pi 0.5)) dist))
  70.   (setq Ep (polar p2 (+ ang (* pi 0.5)) dist))
  71.   (HH::pmDo2P (inters sp2 Ep2 sp Ep T) (inters sp1 Ep1 sp Ep T) ang)
  72.   (setq Lent2 (entlast))
  73.   (command "_.trim" Lent1 Lent2  "" (list e1 (inters sp1 Ep1 p1 p2 T)) "")
  74.   (command "_.trim" Lent1 Lent2 "" (list e2 (inters sp2 Ep2 p1 p2 T)) "")
  75. )
  76. ;;两点画剖面线
  77. (defun HH::pmDo2P (p1 p2 ang / AN DIST PT)
  78.   (setq dist (distance p1 p2))
  79.   (setq an (* 180 (/ ang pi)))
  80.   (setq pt (polar p1 ang (* 0.5 dist)))
  81.   (command "_.pline" p1 "a" "d" (+ an -45) pt p2 "d" (+ an 180 45) pt "")
  82. )
1.gif
2.gif

评分

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

查看全部评分

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 17:05:42 | 显示全部楼层
实实在在的源码，比院长的演示强多啦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 17:16:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
长老，出错啊
  1. [7.15] (#<SUBR @106880f0 -rts_top->)
  2. [8.12] (#<SUBR @0ee02334 veval-str-body> "(C:TT)" T #<FILE internal>)
  3. :CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
  4. :ARQ-SUBR-CALLBACK.3 (nil 0)
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2014-4-25 17:28:47 来自手机 | 显示全部楼层
那个排序函数，自已加上。捕捉

点评

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 17:39:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 lucas3 于 2014-5-30 10:04 编辑
/db_自贡黄明儒_ 发表于 2014-4-25 17:28
那个排序函数，自已加上。捕捉
  2. (defun HH:ssPts:Sort (ssPts KEY FUZZ / E EN FUN LST N)
  3.   ;;1 点列表排序
  4.   (defun sortpts (PTS FUN xyz FUZZ)
  5.     (vl-sort pts
  6.              '(lambda (a b)
  7.                 (if (not (equal (xyz a) (xyz b) fuzz))
  8.                   (fun (xyz a) (xyz b))
  9.                 )
  10.               )
  11.     )
  12.   )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 17:44:21 | 显示全部楼层
本帖最后由 lucas3 于 2014-5-30 10:09 编辑

可以了，谢谢！

点评

ycao
关掉捕捉试试。  发表于 2014-4-30 21:44
/db_自贡黄明儒_
改为entmake  发表于 2014-4-29 15:49
/db_自贡黄明儒_
对于多边形，自动动手了  详情 回复 发表于 2014-4-25 18:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2014-4-25 18:50:58 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lucas3 发表于 2014-4-25 17:44
为什么会这样？

对于多边形，自动动手了

点评

lucas3
不明白，第一个图形是矩形炸开的，第二个是两条线，还是一样的效果  详情 回复 发表于 2014-4-25 18:56
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 18:56:50 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-4-25 18:50
对于多边形，自动动手了

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 20:22:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
长老，这是怎么回事哟，就算画两条平行线，使用您的代码也是不能正常打断的，就像那个演示的动图一样，都乱了

点评

/db_自贡黄明儒_
我也搞机械设计，但很少画轴。即使画轴，也未必断开。这个功能可有可无，属于花拳诱腿，你不必认真。这代码写得也不好，算是抛砖引玉吧，故发＜研讨＞  详情 回复 发表于 2014-4-25 20:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ycao

已领礼包: 3719个

财富等级: 富可敌国
发表于 2014-4-25 20:41:48 | 显示全部楼层
请问_STARTUNDO，_ENDUNDO定义能在哪儿找到。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2014-4-25 20:43:24 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lucas3 发表于 2014-4-25 20:22
长老，这是怎么回事哟，就算画两条平行线，使用您的代码也是不能正常打断的，就像那个演示的动图一样，都乱 ...

我也搞机械设计，但很少画轴。即使画轴，也未必断开。这个功能可有可无，属于花拳诱腿，你不必认真。这代码写得也不好，算是抛砖引玉吧，故发＜研讨＞

点评

lucas3
嗯，是很少用到，只是觉得奇怪，你的演示为什么正常？  详情 回复 发表于 2014-4-25 21:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-4-25 20:58:47 来自手机 | 显示全部楼层
lucas3 发表于 2014-4-25 20:22
长老，这是怎么回事哟，就算画两条平行线，使用您的代码也是不能正常打断的，就像那个演示的动图一样，都乱 ...


看黄老的演示，问规矩，程序是研讨

点评

lucas3
哈哈，我是看黄老的演示这么牛，所以试了一下，结果总是不成功  详情 回复 发表于 2014-4-25 21:48
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 21:46:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
/db_自贡黄明儒_ 发表于 2014-4-25 20:43
我也搞机械设计，但很少画轴。即使画轴，也未必断开。这个功能可有可无，属于花拳诱腿，你不必认真。这代 ...

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-4-25 21:48:41 | 显示全部楼层
st788796 发表于 2014-4-25 20:58
看黄老的演示，问规矩，程序是研讨

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

使用道具 举报

HLCAD

已领礼包: 5679个

财富等级: 富甲天下
发表于 2014-4-26 08:47:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 HLCAD 于 2014-4-26 08:49 编辑

截断线符号还有好看一点的，供参考

截面线符号.jpg

点评

/db_自贡黄明儒_
还是第三种好看,第四种是管子。  发表于 2014-4-29 15:51
lucas3
源码呢？ 望大师高风亮节  详情 回复 发表于 2014-4-26 08:52
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-27 23:16 , Processed in 0.227956 second(s), 70 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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