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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP函数]：见贴图，lsp如何实现?
返回列表 发新帖
查看: 1167|回复: 9

[LISP函数]：见贴图，lsp如何实现?

[复制链接]
前生

已领礼包: 8个

财富等级: 恭喜发财
发表于 2003-4-3 19:52:05 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
见贴图，lsp如何实现?
实现, 贴图, 如何

相关帖子

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

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2003-4-3 20:08:26 | 显示全部楼层

Re: [LISP函数]：见贴图，lsp如何实现?

最初由 前生 发布
[B]见贴图，lsp如何实现? [/B]


可以用编辑LWPOLYLINE的顶点来实现，图太小了，提供一个角的放大图吧，前和后的对比。另外说下什么地方用到这个程序？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

前生

已领礼包: 8个

财富等级: 恭喜发财
 楼主| 发表于 2003-4-4 12:52:46 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你好，简单的说就是将一个pline 线的所有圆角的R加上一个值,比如R1---->变成1.1后，将R到角变成C1.1的到C角。
   用途是在机械设计上。
一个板上的孔是圆角，在孔里有一个一样大的镶块。如果镶块在R角处变成大一点的C角的话，装配回方便很多。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zhynt
发表于 2003-4-8 08:16:49 | 显示全部楼层
完成：

  3. (defun c:QJ (/          z_a  z_b  pta         ptb  ptc  ptd        pte  ptf  ptg  pth
  4.              xa          xb   xc   xd         xe   xf   xg        xh   ya          yb   yc
  5.              yd          ey   fy   yg         yh   ptaa ptba        ptca ptda ptea ptfa
  6.              ptga ptha pt   m         n    na   nb        nd   pt1  pt2  pt3
  7.              pt4  pt5  pt6  pt7         pt8  x1   x2        x3   x4          x5   x6
  8.              x7          x8   y1   y2         y3   y4   y5        y6   y7          y8
  9.             )
  10.   (setq oldos (getvar "osmode"))
  11.   (setvar "osmode" 0)
  12.   (setq z_a (entsel "\n请选择需要修改的孔："))
  13.   (setq z_b (entget (car z_a)))
  14.   (setq n (length z_b))
  15.   (setq na (- (/ (- n 15) 4) 1))
  16.   (setq m 0)
  17.   (setq nb 14)
  18.   (setq nd (getreal "\n输入切角增加的宽度："))
  19.   (while (<= m na)
  20.     (setq pt (cdr (nth nb z_b)))
  21.     (set (read (strcat "pt" (itoa (1+ m)))) pt)
  22.     (setq nb (+ nb 4))
  23.     (setq m (1+ m))
  24.   )
  25.   (setq x1 (car pt1))
  26.   (setq y1 (cadr pt1))
  27.   (setq x2 (car pt2))
  28.   (setq y2 (cadr pt2))
  29.   (setq x3 (car pt3))
  30.   (setq y3 (cadr pt3))
  31.   (setq x4 (car pt4))
  32.   (setq y4 (cadr pt4))
  33.   (setq x5 (car pt5))
  34.   (setq y5 (cadr pt5))
  35.   (setq x6 (car pt6))
  36.   (setq y6 (cadr pt6))
  37.   (setq x7 (car pt7))
  38.   (setq y7 (cadr pt7))
  39.   (setq x8 (car pt8))
  40.   (setq y8 (cadr pt8))
  41.   (if (= x1 x2)
  42.     (progn
  43.       (if (> y1 y2)
  44.         (progn
  45.           (setq        xa x1
  46.                 xb x2
  47.                 xc (- x3 nd)
  48.                 xd (+ x4 nd)
  49.                 xe x5
  50.                 xf x6
  51.                 xg (+ x7 nd)
  52.                 xh (- x8 nd)
  53.           )
  54.           (setq        ya (- y1 nd)
  55.                 yb (+ y2 nd)
  56.                 yc y3
  57.                 yd y4
  58.                 ye (+ y5 nd)
  59.                 yf (- y6 nd)
  60.                 yg y7
  61.                 yh y8
  62.           )
  63.         )
  64.         (progn
  65.           (setq        xa x1
  66.                 xb x2
  67.                 xc (+ x3 nd)
  68.                 xd (- x4 nd)
  69.                 xe x5
  70.                 xf x6
  71.                 xg (- x7 nd)
  72.                 xh (+ x8 nd)
  73.           )
  74.           (setq        ya (+ y1 nd)
  75.                 yb (- y2 nd)
  76.                 yc y3
  77.                 yd y4
  78.                 ye (- y5 nd)
  79.                 yf (+ y6 nd)
  80.                 yg y7
  81.                 yh y8
  82.           )
  83.         )
  84.       )
  85.     )
  86.   )
  87.   (if (= x2 x3)
  88.     (progn
  89.       (if (> y2 y3)
  90.         (progn
  91.           (setq        xa (- x1 nd)
  92.                 xb x2
  93.                 xc x3
  94.                 xd (- x4 nd)
  95.                 xe (+ x5 nd)
  96.                 xf x6
  97.                 xg x7
  98.                 xh (+ x8 nd)
  99.           )
  100.           (setq        ya y1
  101.                 yb (- y2 nd)
  102.                 yc (+ y3 nd)
  103.                 yd y4
  104.                 ye y5
  105.                 yf (+ y6 nd)
  106.                 yg (- y7 nd)
  107.                 yh y8
  108.           )
  109.         )
  110.         (progn
  111.           (setq        xa (+ x1 nd)
  112.                 xb x2
  113.                 xc x3
  114.                 xd (+ x4 nd)
  115.                 xe (- x5 nd)
  116.                 xf x6
  117.                 xg x7
  118.                 xh (- x8 nd)
  119.           )
  120.           (setq        ya y1
  121.                 yb (+ y2 nd)
  122.                 yc (- y3 nd)
  123.                 yd y4
  124.                 ye y5
  125.                 yf (- y6 nd)
  126.                 yg (+ y7 nd)
  127.                 yh y8
  128.           )
  129.         )
  130.       )
  131.     )
  132.   )
  133.   (if (= x3 x4)
  134.     (progn
  135.       (if (> y3 y4)
  136.         (progn
  137.           (setq        xa (+ x1 nd)
  138.                 xb (- x2 nd)
  139.                 xc x3
  140.                 xd x4
  141.                 xe (- x5 nd)
  142.                 xf (+ x6 nd)
  143.                 xg x7
  144.                 xh x8
  145.           )
  146.           (setq        ya y1
  147.                 yb y2
  148.                 yc (- y3 nd)
  149.                 yd (+ y4 nd)
  150.                 ye y5
  151.                 yf y6
  152.                 yg (+ y7 nd)
  153.                 yh (- y8 nd)
  154.           )
  155.         )
  156.         (progn
  157.           (setq        xa (- x1 nd)
  158.                 xb (+ x2 nd)
  159.                 xc x3
  160.                 xd x4
  161.                 xe (+ x5 nd)
  162.                 xf (- x6 nd)
  163.                 xg x7
  164.                 xh x8
  165.           )
  166.           (setq        ya y1
  167.                 yb y2
  168.                 yc (+ y3 nd)
  169.                 yd (- y4 nd)
  170.                 ye y5
  171.                 yf y6
  172.                 yg (- y7 nd)
  173.                 yh (+ y8 nd)
  174.           )
  175.         )
  176.       )
  177.     )
  178.   )
  179.   (if (= x4 x5)
  180.     (progn
  181.       (if (> y4 y5)
  182.         (progn
  183.           (setq        xa x1
  184.                 xb (+ x2 nd)
  185.                 xc (- x3 nd)
  186.                 xd x4
  187.                 xe x5
  188.                 xf (- x6 nd)
  189.                 xg (+ x7 nd)
  190.                 xh x8
  191.           )
  192.           (setq        ya (- y1 nd)
  193.                 yb y2
  194.                 yc y3
  195.                 yd (- y4 nd)
  196.                 ye (+ y5 nd)
  197.                 yf y6
  198.                 yg y7
  199.                 yh (+ y8 nd)
  200.           )
  201.         )
  202.         (progn
  203.           (setq        xa x1
  204.                 xb (- x2 nd)
  205.                 xc (+ x3 nd)
  206.                 xd x4
  207.                 xe x5
  208.                 xf (+ x6 nd)
  209.                 xg (- x7 nd)
  210.                 xh x8
  211.           )
  212.           (setq        ya (+ y1 nd)
  213.                 yb y2
  214.                 yc y3
  215.                 yd (+ y4 nd)
  216.                 ye (- y5 nd)
  217.                 yf y6
  218.                 yg y7
  219.                 yh (- y8 nd)
  220.           )
  221.         )
  222.       )
  223.     )
  224.   )
  225.   (setq ptaa (list xa ya))
  226.   (setq ptba (list xb yb))
  227.   (setq ptca (list xc yc))
  228.   (setq ptda (list xd yd))
  229.   (setq ptea (list xe ye))
  230.   (setq ptfa (list xf yf))
  231.   (setq ptga (list xg yg))
  232.   (setq ptha (list xh yh))
  233.   (command "pline" ptaa        ptba ptca ptda ptea ptfa ptga ptha "c")
  234.   (setvar "osmode" oldos)
  235.   (princ)
  236. )
  237. (prompt
  238.   "\n程序加载成功，用QJ运行程序。注意：图形必须是正的，否则出错！"
  239. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

前生

已领礼包: 8个

财富等级: 恭喜发财
 楼主| 发表于 2003-4-8 11:03:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

呵呵，谢谢你

其实在实际中远远不止这些比较标准的形状。
比如下列视图。
总之一个要求：
是镶块的角部与板上的角部不发生干涉以及相同。
目的就是为了镶块装进板里方便。
一直在想这个问题。不得其解。因为需要判断的地方很多，比如付图中小圈圈住的地方的R角不是变大，而是变小什么的
要是能解决这个问题就太好了.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-4-9 08:10:59 | 显示全部楼层
前生兄:

思路:
1.先求出PLINE上所有圓角R值及R兩端點座標
2.再利用R兩端點座標倒C角 <C角=R值加上一個值>
PS:我已驗証以上可行,但連續兩個R角則不行!!
      所有地方的R角變大可以,但又要變小!!有點難!!
      可能要手動框選那些地方要變大,那裡要變小
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

前生

已领礼包: 8个

财富等级: 恭喜发财
 楼主| 发表于 2003-4-9 11:44:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
承教,是啊。是比较困难一些.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

梦断江南
发表于 2003-4-9 12:18:21 | 显示全部楼层
自己修改pl线数据
1，xdapi有求实体最大外框的，如果要倒角的两点都在外框上（凸角），r改c，直接改数据
2。如果不在（凹角），改r。
以上改r，c，要直接改点位，和弧线凸度。
仅作为思路供参考，这段忙，没有时间写，sorry
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-4-9 12:37:59 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

  3. ;;BY LUCAS(龙龙仔)
  4. ;;先贴个程序供参考
  5. ;;所有地方的R角变大OR变小!!
  6. ;;手动框选那些地方要变大,那里要变小,还没开始写,SORRY!!
  7. ;;USAGE: (F_TO_C 0.1)
  8. ;;USAGE: (F_TO_C -0.1)
  9. (defun F_TO_C (ADD / HOLDOSMODE HOLDECHO HOLDBOX OBJ ENT LIST_RAD)
  10.   ;;-----------------------------------------------------------
  11.   ;; Function to return 2DPolyline data as a list in the format
  12.   ;; (v1 bulge1 v2 bulge2 ... vn bulgen)
  13.   ;; given one argument:
  14.   ;;   Object = either an Ename or VLA-Object that is any of the
  15.   ;;            following:
  16.   ;;            AcDb2dPolyline ("Heavy" POLYLINE)
  17.   ;;            AcDbPolyline   (LWPOLYLINE)
  18.   ;;            AcDb2dVertex   ("Heavy" POLYLINE VERTEX)
  19.   ;; Coordinates are in WCS, or OCS if object is nested.
  20.   ;; NOTE that if the polyline is closed, the last vertex
  21.   ;;      will equal the first vertex.
  22.   ;; (c)2002, John F. Uhden, Cadlantic
  23.   ;; Release 15.0 or higher
  24.   ;; usage: (VLISTAX (CAR (ENTSEL)))

  26.   (defun VLISTAX (OBJECT  /          NAME          PTYPE          ENDPARAM
  27.                   PARAM          CLOSED  P1          P2          MIDP          BULGE
  28.                   VLIST
  29.                  )
  30.     (vl-load-com)
  31.     (setq OBJ OBJECT)
  32.     (if        (not *ACAD*)
  33.       (setq *ACAD* (vlax-get-acad-object))
  34.     )
  35.     (and
  36.       (cond
  37.         ((= (type OBJECT) 'VLA-OBJECT))
  38.         ((= (type OBJECT) 'ENAME)
  39.          (setq OBJECT (vlax-ename->vla-object OBJECT))
  40.         )
  41.         (t (setq OBJECT NIL))
  42.       )
  43.       (setq NAME (vla-get-objectname OBJECT))
  44.       (cond
  45.         ((= NAME "AcDb2dPolyline")
  46.          (setq PTYPE (vla-get-type OBJECT))
  47.         )
  48.         ((= NAME "AcDbPolyline")
  49.          (setq PTYPE 0)
  50.         )
  51.         ((= NAME "AcDb2dVertex")
  52.          (setq OBJECT (vla-objectidtoobject
  53.                         (vla-get-activedocument *ACAD*)
  54.                         (vla-get-ownerid OBJECT)
  55.                       )
  56.                PTYPE  (vla-get-type OBJECT)
  57.          )
  58.         )
  59.       )
  60.       (setq CLOSED (vla-get-closed OBJECT))
  61.       (setq ENDPARAM (vlax-curve-getendparam OBJECT))
  62.       (setq PARAM ENDPARAM)
  63.       (setq P2 (vlax-curve-getendpoint OBJECT))
  64.       (setq VLIST (list P2))
  65.       (while (> PARAM 0)
  66.         (if (= PTYPE 0)                        ; acSimplePoly
  67.           (setq        PARAM (1- PARAM)
  68.                 P1    (vlax-curve-getpointatparam OBJECT PARAM)
  69.                 BULGE (vla-getbulge OBJECT (fix PARAM))
  70.           )
  71.           (setq        PARAM (- PARAM 0.5)
  72.                 MIDP  (vlax-curve-getpointatparam OBJECT PARAM)
  73.                 PARAM (- PARAM 0.5)
  74.                 P1    (vlax-curve-getpointatparam OBJECT PARAM)
  75.                 BULGE (GETBULGE P1 MIDP P2)
  76.           )
  77.         )
  78.         (setq VLIST (cons P1 (cons BULGE VLIST))
  79.               P2    P1
  80.         )
  81.       )
  82.     )
  83.     (cond
  84.       ((not VLIST) NIL)
  85.       ((= CLOSED :vlax-true)
  86.        (append VLIST (list (cadr VLIST)))
  87.       )
  88.       ((= PTYPE 0)
  89.        (append VLIST (list (vla-getbulge OBJECT ENDPARAM)))
  90.       )
  91.       (t (append VLIST '(0.0)))
  92.     )
  93.   )

  95.   ;; -- Function CalcBulge
  96.   ;; Returns the geometric informations from a polyarc.
  97.   ;; Copyright:
  98.   ;;   c2001 MENZI ENGINEERING GmbH, Switzerland
  99.   ;; Arguments [Typ]:
  100.   ;;   Vx1 = Start vertex of p'arc [LIST]
  101.   ;;   Vx2 = End vertex of p'arc [LIST]
  102.   ;;   Blg = Bulge [REAL]
  103.   ;; Return [Typ]:
  104.   ;;   > '(CenterPoint Radius IncludedAngle) [LIST]
  105.   ;; Notes:
  106.   ;;   IncludedAngle in radians
  107.   ;;
  108.   ;;(calcbulge '(221.619 127.845 0.0)'(227.619 133.845 0.0) 0.414214))

  110.   (defun CALCBULGE (VX1 VX2 BLG / ARCRAD HLFANG) ;CENDIR
  111.     (setq HLFANG (* 2 (atan BLG))
  112.           ;; CenDir ((if (< Blg 0) - +) (- (angle Vx1 Vx2) HlfAng) (/ pi 2))
  113.           ARCRAD (abs (/ (/ (distance VX1 VX2) 2.0) (sin HLFANG)))
  114.     )
  115.     (list (list
  116.             VX1
  117.             VX2
  118.             ;;(polar Vx1 CenDir ArcRad)
  119.             ARCRAD
  120.             ;;(* (abs HlfAng) 2.0)
  121.           )
  122.     )
  123.   )

  125.   (defun MAKE_LIST (PT_LIST / N LIST_INDEX)
  126.     (setq N 1
  127.           LIST_INDEX
  128.            NIL
  129.     )
  130.     (repeat (/ (length PT_LIST) 2)
  131.       (if (/= (nth N PT_LIST) 0)
  132.         (setq LIST_INDEX
  133.                (append LIST_INDEX
  134.                        (list (list (nth (1- N) PT_LIST)
  135.                                    (nth (1+ N) PT_LIST)
  136.                                    (nth N PT_LIST)
  137.                              )
  138.                        )
  139.                )
  140.         )
  141.       )
  142.       (setq N (+ 2 N))
  143.     )
  144.     LIST_INDEX
  145.   )

  147.   (setq HOLDECHO (getvar "CMDECHO"))
  148.   (setvar "CMDECHO" 0)
  149.   (command "_.UNDO" "_GROUP")
  150.   (setq HOLDOSMODE (getvar "OSMODE"))
  151.   (setvar "OSMODE" 0)
  152.   (foreach ENT (MAKE_LIST (VLISTAX (car (entsel))))
  153.     (setq LIST_RAD (append LIST_RAD
  154.                            (CALCBULGE (car ENT) (cadr ENT) (last ENT))
  155.                    )
  156.     )
  157.   )
  158.   (command "_.ZOOM" "E")
  159.   (setvar "FILLETRAD" 0)
  160.   (command "_.FILLET" "P" OBJ)
  161.   (setq HOLDBOX (getvar "PICKBOX"))
  162.   (setvar "PICKBOX" 1)
  163.   (foreach ENT LIST_RAD
  164.     (command "_.CHAMFER" "D" (+ ADD (last ENT)) "")
  165.     (command "_.CHAMFER" "NEA" (car ENT) "NEA" (cadr ENT))
  166.   )
  167.   (command "_.ZOOM" "P")
  168.   (setvar "OSMODE" HOLDOSMODE)
  169.   (setvar "PICKBOX" HOLDBOX)
  170.   (command "_.UNDO" "_END")
  171.   (setvar "CMDECHO" HOLDECHO)
  172.   (princ)
  173. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2003-4-10 08:04:12 | 显示全部楼层
最初由 前生 发布
[B]承教,是啊。是比较困难一些. [/B]


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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-26 14:28 , Processed in 0.219395 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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