本帖最后由 水吉空 于 2018-11-2 10:58 编辑


最近看到有个12年的求助贴，发现没解决，自己动手操作了下，发现搞不定
一、窗选线条；
二、计算交点；
三、交点打断；
四、删除窗内线条；
五、线条圆角；

原贴地址：http://bbs.mjtd.com/forum.php?mo ... 0%C2%B7%BD%BB%B2%E6
四线打断：实现到第四步删除窗内线条；第五步实现不了。
  1. (defun inter (ent01 ent02 / obj1 obj2)
  2. (setq    obj1(vlax-ename->vla-object ent01)
  3.     obj2(vlax-ename->vla-object ent02)
  4.   )
  5.   (vlax-invoke obj1 'IntersectWith obj2 acExtendNone)

  7. )
  8. (defun c:jtr (/ cmd ent1 ent2 ent3 ent4 os point1 point2 point3 point4 ss)
  9. (princ "\n请选择要修剪的4个相交物体(直线、圆弧或多段线)...")
  10. (setq ss(ssget '((0 . "LINE,ARC,LWPOLYLINE"))))
  11. (if(=(sslength ss) 4)
  12.    (setq ent1(ssname ss 0)
  13.       ent2(ssname ss 1)
  14.       ent3(ssname ss 2)
  15.       ent4(ssname ss 3)
  16.     )
  17.    (progn
  18.      (princ "\n选取错误，请重新选择4个相交物体!")
  19.      (vl-exit-with-error "")
  20.     )
  21.   )
  22. (setq cmd(getvar "cmdecho"))
  23. (setvar "CMDECHO" 0)
  24. (command "undo" "be")
  25. (setq os(getvar "osmode"))
  26. (setvar "osmode" 0)
  27. (setq point1 (inter ent1 ent2))
  28. (if(= point1 nil)
  29.    (progn
  30.      (setq point1 (inter ent1 ent3)
  31.         point2 (inter ent1 ent4)
  32.         point3 (inter ent2 ent3)
  33.         point4 (inter ent2 ent4)
  34.       )
  35.      (command "break" ent1 point1 point2)
  36.      (command "break" ent2 point3 point4)
  37.      (command "break" ent3 point1 point3)
  38.      (command "break" ent4 point2 point4)
  39.     )
  40.    (progn
  41.      (setq point2 (inter ent1 ent3))
  42.      (if(= point2 nil)
  43.    (progn
  44.      (setq    point2 (inter ent1 ent4)
  45.         point3 (inter ent3 ent2)
  46.         point4 (inter ent3 ent4)
  47.       )
  48.      (command "break" ent1 point1 point2)
  49.      (command "break" ent2 point1 point3)
  50.      (command "break" ent3 point3 point4)
  51.      (command "break" ent4 point2 point4)
  52.     )
  53.    (progn
  54.      (setq    point3 (inter ent4 ent2)
  55.         point4 (inter ent4 ent3)
  56.       )
  57.      (command "break" ent1 point1 point2)
  58.      (command "break" ent2 point1 point3)
  59.      (command "break" ent3 point2 point4)
  60.      (command "break" ent4 point3 point4)
  61.     )
  62.       )
  63.     )
  64.   )
  65. (setvar "osmode" os)
  66. (command "undo" "e")
  67. (setvar "cmdecho" cmd)
  68. (princ)
  69. )





网友答: 本帖最后由 vectra 于 2018-11-5 10:25 编辑

关键是要对直线进行分组、排序
楼主看看是否满足要求






网友答: 本帖最后由 水吉空 于 2018-11-6 16:54 编辑

  1. ;感谢版主[ZZXXQQ]踅摸的帮助，经过测试程序还是有问题，来不及研究，先放上来供大家讨论！

  3. (defun inter (ent01 ent02 / obj1 obj2)
  4.   (setq obj1 (vlax-ename->vla-object ent01)
  5.     obj2 (vlax-ename->vla-object ent02)
  6.   )
  7.   (vlax-invoke obj1 'IntersectWith obj2 acExtendNone)  
  8. )
  9. (defun midpt (p1 p2)
  10. (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)
  11. )
  12. (defun c:jtr ()
  13. (if (and (setq pt1 (getpoint "\n窗交选择4个相交物体: "))
  14.           (setq pt2 (getcorner pt1 "\n窗交另一点: "))) (progn
  15.   (setq ss(ssget "C" pt1 pt2 '((0 . "LINE,LWPOLYLINE"))))
  16.   (if(=(sslength ss) 4) (progn
  17.    (setq ent1(ssname ss 0)
  18.          ent2(ssname ss 1)
  19.          ent3(ssname ss 2)
  20.          ent4(ssname ss 3)
  21.    )
  22. ;   (setq cmd (getvar "cmdecho"))
  23. ;   (setvar "CMDECHO" 0)
  24.    (command "undo" "be")
  25.    (setq os(getvar "osmode"))
  26.    (setvar "osmode" 0)
  27.    (setq ss1 (ssadd))
  28.    (setq first (entlast))
  29.    (if(= (setq point1 (inter ent1 ent2)) nil) (progn
  30.     (setq point1 (inter ent1 ent3)
  31.           point2 (inter ent1 ent4)
  32.           point3 (inter ent2 ent3)
  33.           point4 (inter ent2 ent4)
  34.     )
  35.     (command "break" ent1 point1 point2)
  36.     (command "break" ent2 point3 point4)
  37.     (command "break" ent3 point1 point3)
  38.     (command "break" ent4 point2 point4)
  39.    ) (if(= (setq point2 (inter ent1 ent3)) nil) (progn
  40.      (setq point2 (inter ent1 ent4)
  41.            point3 (inter ent3 ent2)
  42.            point4 (inter ent3 ent4)
  43.      )
  44.      (command "break" ent1 point1 point2)
  45.      (command "break" ent2 point1 point3)
  46.      (command "break" ent3 point3 point4)
  47.      (command "break" ent4 point2 point4)
  48.     ) (progn
  49.      (setq point3 (inter ent4 ent2)
  50.            point4 (inter ent4 ent3)
  51.      )
  52.      (command "break" ent1 point1 point2)
  53.      (command "break" ent2 point1 point3)
  54.      (command "break" ent3 point2 point4)
  55.      (command "break" ent4 point3 point4)
  56.     ))
  57.    )
  58.    (setq pm (midpt pt1 pt2))
  59.    (setq pt3 (list (car pt1) (cadr pt2)))
  60.    (setq pt4 (list (car pt2) (cadr pt1)))
  61.    (setvar "FILLETRAD" 100)
  62.    (repeat (setq i 4)
  63.     (setq pt (eval(read(strcat "pt" (itoa i)))))
  64.     (setq ss (ssget "C" pt pm '((0 . "LINE,LWPOLYLINE"))))
  65.     (setq en1 (ssname ss 0) en2 (ssname ss 1))
  66.     (setq ent1 (entget en1))
  67.     (setq pm1 (midpt (cdr(assoc 10 ent1)) (cdr(assoc 11 ent1))))
  68.     (setq ent2 (entget en2))
  69.     (setq pm2 (midpt (cdr(assoc 10 ent2)) (cdr(assoc 11 ent2))))
  70.     (command "_.FILLET" pm1 pm2)
  71.     (setq i (1- i))
  72.    )
  73.    (command "UNDO" "E")
  74.   )
  75.    (princ "\n选取错误，请重新选择4个相交物体!")
  76.   )
  77. ))
  78. (princ)
  79. )

根据vectra大神提供的源码自己改了下，改为多段线然后想改为通用型的，搞了一天，只出了一个半成品，实在搞不动了。其他的很多问题还是没能解决，就贴个自己的半成品成果吧，希望有大神优化。



网友答: 这奖励都没有大师出手？？？

网友答: 大师都没起床，再等等吧

网友答: 倒圆角就CAD本身的功能都不完美，要突破桌子公司比较难啊

网友答:
ssyfeng 发表于 2018-11-2 09:15
倒圆角就CAD本身的功能都不完美，要突破桌子公司比较难啊

是啊，所以有的思路是直接画圆弧。

网友答: 這一篇可參考
http://bbs.mjtd.com/forum.php?mo ... hlight=%B5%B9%BD%C7

网友答:
bluefcc1 发表于 2018-11-2 10:10
這一篇可參考
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=88723&highlight=%B5%B9%BD%C7

谢谢 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

网友答: 道路的要求还比这个复杂一些，在非直角的交叉口，圆角的半径参数是不一样的！
  • 上一篇：风管水管倒圆角，弯头
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025