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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 算法与数据结构 › [讨论]：关于单线变双的算法，大家能讨论一下吗？ ...
12下一页
返回列表 发新帖
查看: 2547|回复: 18

[讨论]：关于单线变双的算法，大家能讨论一下吗？

[复制链接]
梦断江南
发表于 2002-4-26 09:00:12 | 显示全部楼层 |阅读模式

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

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

×
如题。
相关论题：
http://www.xdcad.net/forum/showt ... tid=17764#post17764

                               
登录/注册后可看大图
单线, 论题

相关帖子

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

使用道具 举报

长清
发表于 2002-4-26 11:56:17 | 显示全部楼层

好贴，一个值得讨论的话题。

好贴呀！！，在工程中用处太大了。
我一直没有好的解决办法，特别是曲线相交的情况，根本就无从下手，就是PLINE线，我也没有多少办法。
有明白人给大家指点指点吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-4-26 14:25:13 | 显示全部楼层
我提供过用XDRX_API写的“双线直墙”、“道路”、“井子梁”、“主梁”、“次梁”的程序，去“程序库论坛”找找。

“双线主梁”、“双线次梁”还有不同的截断方法。

程序需要几个函数：

直线和直线的交点
直线和园的交点
直线和弧线的交点
弧线和弧线的交点

另外：重要的是：

求过一点的选择集的函数用来构造交叉处的墙线选择集。

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

使用道具 举报

LUCAS
发表于 2002-4-27 19:46:14 | 显示全部楼层
把要改为双线的线左右偏移(偏移前可先连接为pline),再把偏移的两线连接,再转为region,再union即可(有需要再炸开)。
只是线"line,*polyline,arc,spline,ellipse,circle"要在不点选下自动左右偏移(还在想办法!!)

很多情况没法连接,比如,两条成60度角的线,如果是"转折"型而不是交叉型,当OFFSET时,外边线有口子.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

dreamsky
发表于 2002-4-28 12:36:21 | 显示全部楼层
楼上，阳角处处理会有问题。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

长清
发表于 2002-4-28 22:33:27 | 显示全部楼层

我得好好学学习XDAPI了.里面的内容很丰富.

最初由 XDSoft 发布
[B]我提供过用XDRX_API写的“双线直墙”、“道路”、“井子梁”、“主梁”、“次梁”的程序，去“程序库论坛”找找。

“双线主梁”、“双线次梁”还有不同的截断方法。

程序需要几个函数：

直线和直线的交点
... [/B]


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

使用道具 举报

LUCAS
发表于 2002-4-29 20:10:00 | 显示全部楼层
有一个半成品看看吧!有些地方还没完成,给点建议

  3. (vl-load-com)
  4. (defun CONVPOLY_1 (/ PLINETYPE A AAA NA EN TT $FLG$ OBJ OBJJ ENT)
  5.   (command "_.undo" "_group")
  6.   (setq HOLDPTYPE (getvar "PLINETYPE"))
  7.   (setvar "CMDECHO" 0)
  8.   (setvar "PLINETYPE" 1)
  9.   (setq AAA (ssadd))
  10.   (setq EN1 (ssget '((0 . "line,*polyline,arc,spline,ellipse,circle"))))
  11.   (setq EN (ssget "p" '((0 . "line,*polyline,arc"))))
  12.   (if (/= EN NIL)
  13.     (progn
  14.       (setq NA (sslength EN)
  15.             TT 0
  16.       )
  17.       (repeat NA
  18.         (if (or        (= "LINE" (cdr (assoc 0 (entget (ssname EN TT)))))
  19.                 (= "ARC" (cdr (assoc 0 (entget (ssname EN TT)))))
  20.             )
  21.           (progn
  22.             (command ".PEDIT" (ssname EN TT) "Y" "X")
  23.             (ssadd (entlast) AAA)
  24.           )
  25.         )
  26.         (if
  27.           (or (= "POLYLINE" (cdr (assoc 0 (entget (ssname EN TT)))))
  28.               (= "LWPOLYLINE" (cdr (assoc 0 (entget (ssname EN TT)))))
  29.           )
  30.            (ssadd (ssname EN TT) AAA)
  31.         )
  32.         (setq TT (+ TT 1))
  33.       )
  34.       (setq $FLG$ t)
  35.       (setq OBJ (sslength AAA))
  36.       (setq OBJJ OBJ)
  37.       (repeat OBJ
  38.         (setq ENT (ssname AAA (- OBJ 1)))
  39.         (setq EN (entget ENT))
  40.         (if $FLG$
  41.           (princ "\rProcessing... >-x-<                       ")
  42.           (princ "\rProcessing... -<->-                       ")
  43.         )
  44.         (setq $FLG$ (not $FLG$))
  45.         (if (and (or (= (cdr (assoc 0 EN)) "LWPOLYLINE")
  46.                      (= (cdr (assoc 0 EN)) "POLYLINE")
  47.                  )
  48.                  (= (cdr (assoc 70 EN)) 0)
  49.             )
  50.           (command "_.PEDIT" ENT "J" AAA "" "X")
  51.         )
  52.         (setq OBJ (- OBJ 1))
  53.       )                                       
  54.       (command "_.SELECT" AAA "")
  55.       (setq OBJ (sslength (ssget "P")))
  56.       (princ
  57.         (strcat        "\n"
  58.                 (itoa OBJJ)
  59.                 " Objects(line/arc/polyline/lwpolyline) change to "
  60.                 (itoa OBJ)
  61.                 " POLYLINES.\n"
  62.         )
  63.       )
  64.     )
  65.   )
  66.   (setq A 0)
  67.   (setvar "PLINETYPE" HOLDPTYPE)
  68.   (command "_.undo" "_end")
  69.   (princ)
  70. )

  72. (defun DO_IT (/ LLL SS)
  73.   (setq SS (ssadd))
  74.   (ssadd (entlast) SS)
  75.   (setq LLL (entnext ENTT))
  76.   (while (not (eq LLL (entlast)))
  77.     (ssadd LLL SS)
  78.     (setq LLL (entnext LLL))
  79.   )
  80.   SS
  81. )

  83. (defun C:DDLINE        (/ ER AA ENTT ERN)
  84.   (if (/= A2 NIL)
  85.     (setvar "offsetdist" A2)
  86.   )
  87.   (setq A2 (getvar "offsetdist"))
  88.   (if (= A2 -1)
  89.     (progn
  90.       (setq
  91.         AA (getdist
  92.              (strcat "\nOffset total distance or Through <Through>: ")
  93.            )
  94.       )
  95.     )
  96.     (progn
  97.       (setq AA (getdist        (strcat        "\nOffset total distance or Through <"
  98.                                 (rtos (getvar "offsetdist"))
  99.                                 ">: "
  100.                         )
  101.                )
  102.       )
  103.     )
  104.   )
  105.   (if (= AA NIL)
  106.     (setq AA (getvar "offsetdist"))
  107.   )
  108.   (setq A2 AA)
  109.   (setq ENTT (entlast))
  110.   (CONVPOLY_1)
  111.   (if (not (eq (entlast) ENTT))
  112.     (setq ER (DO_IT))
  113.   )
  114.   (if (/= ER NIL)
  115.     (command "_.select" ER EN1 "")
  116.     (command "_.select" EN1 "")
  117.   )
  118.   (setq ER (ssget "p"))
  119.   (setq ENTT (entlast))
  120.   (CCC ER)
  121.   (setq ER NIL)
  122.   (if (not (eq (entlast) ENTT))
  123.     (setq ER (DO_IT))
  124.   )
  125.   (setq ENTT (entlast))
  126.   (if (/= ER NIL)
  127.     (command "_.REGION" ER "")
  128.   )
  129.   (if (not (eq (entlast) ENTT))
  130.     (progn
  131.       (setq ER (DO_IT))
  132.       (setq ERN (sslength ER))
  133.     )
  134.     (setq ERN 0)
  135.   )
  136.   (if (> (+ ERN (sslength YY)) 1)
  137.     (command "_.UNION" ER YY "")
  138.   )
  139.   (princ)
  140. )

  142. (defun CCC (SS / AX AY HOLDPICK        N A A10        AA10 AA40 AA51 ANG PT1 BB LL SSN
  143.             E AAA)
  144.   (setq HOLDPICK (getvar "pickbox"))
  145.   (setvar "pickbox" 0)
  146.   (setvar "osmode" 0)
  147.   (setq YY (ssadd))
  148.   (setq N 0)
  149.   (repeat (sslength SS)
  150.     (setq A (ssname SS N))
  151.     (setq A0 (cdr (assoc 0 (entget A))))
  152.     (cond
  153.       ((= A0 "CIRCLE")
  154.        (setq AA10 (cdr (assoc 10 (entget A))))
  155.        (setq AA40 (cdr (assoc 40 (entget A))))
  156.        (setq PT1 (polar AA10 0 (+ AA40 0.1)))
  157.        (command "_.offset" (/ AA 2) A AA10 "")
  158.        (command "_.REGION" (entlast) "")
  159.        (setq 1A10 (entlast))
  160.        (command "_.offset" (/ AA 2) A PT1 "")
  161.        (command "_.REGION" (entlast) "")
  162.        (command "_.SUBTRACT" "L" "" 1A10 "")
  163.        (ssadd (entlast) YY)
  164.       )
  165.       ((= A0 "ELLIPSE")
  166.        (setq AA10 (cdr (assoc 10 (entget A))))
  167.        (setq AX (cadr (assoc 11 (entget A))))
  168.        (setq AY (caddr (assoc 11 (entget A))))
  169.        (setq AA40 (sqrt (+ (* AX AX) (* AY AY))))
  170.        (setq PT1 (polar AA10 0 (+ AA40 0.1)))
  171.        (if (and
  172.              (equal 0 (cdr (assoc 41 (entget A))) 0.00001)
  173.              (equal 6.28319 (cdr (assoc 42 (entget A))) 0.00001)
  174.            )
  175.          (progn
  176.            (command "_.offset" (/ AA 2) A AA10 "")
  177.            (command "_.REGION" (entlast) "")
  178.            (setq 1A10 (entlast))
  179.            (command "_.offset" (/ AA 2) A PT1 "")
  180.            (command "_.REGION" (entlast) "")
  181.            (command "_.SUBTRACT" "L" "" 1A10 "")
  182.            (ssadd (entlast) YY)
  183.          )
  184.          (progn
  185.            (command "_.offset" (/ AA 2) A AA10 "")
  186.            (setq 1A10 (vlax-curve-getstartpoint
  187.                         (vlax-ename->vla-object (entlast))
  188.                       )
  189.            )
  190.            (setq 1A20 (vlax-curve-getendpoint
  191.                         (vlax-ename->vla-object (entlast))
  192.                       )
  193.            )
  194.            (command "_.offset" (/ AA 2) A PT1 "")
  195.            (setq 2A10 (vlax-curve-getstartpoint
  196.                         (vlax-ename->vla-object (entlast))
  197.                       )
  198.            )
  199.            (setq 2A20 (vlax-curve-getendpoint
  200.                         (vlax-ename->vla-object (entlast))
  201.                       )
  202.            )
  203.            (command "_.LINE" 1A10 2A10 "")
  204.            (command "_.LINE" 1A20 2A20 "")
  205.          )
  206.        )
  207.       )
  208.       ((= A0 "SPLINE")
  209.        (setq A10 (cdr (assoc 10 (entget A))))
  210.        (setq ANG (angle '(0 0 0) A10))
  211.        (setq PT1 (polar A10 ANG 0.1))
  212.        (setvar "PICKBOX" 1)
  213.        (setq AAA (nentselp PT1))
  214.        (setvar "PICKBOX" 0)
  215.        (setq SSN (car AAA))
  216.        (setq E (entget SSN))
  217.        (setq PT1 (cdr (assoc 10 E)))
  218.        (command "_.OFFSET" (/ AA 2) SSN PT1 "")
  219.        (setq 1A10 (cdr (assoc 10 (entget (entlast)))))
  220.        (setq 1A20 (cdr (assoc 10 (reverse (entget (entlast))))))
  221.        (command "_.OFFSET" AA (ssget "L") PT1 "")
  222.        (setq 2A10 (cdr (assoc 10 (entget (entlast)))))
  223.        (setq 2A20 (cdr (assoc 10 (reverse (entget (entlast))))))
  224.        (command "_.LINE" 1A10 2A10 "")
  225.        (command "_.LINE" 1A20 2A20 "")
  226.       )
  227.       ((= A0 "LWPOLYLINE")
  228.        (setq AQ (entget A))
  229.        (setq A70 (cdr (assoc 70 AQ)))
  230.        (setq 1A10 (cdr (assoc 10 AQ)))
  231.        (setq 1A20 (cdr (assoc 10 (reverse AQ))))
  232.        (if (/= A70 1)
  233.          (progn
  234.            (setq A10 (cdr (assoc 10 AQ)))
  235.            (setq ANG (angle '(0 0 0) A10))
  236.            (setq PT1 (polar A10 ANG 0.1))
  237.            (setvar "PICKBOX" 1)
  238.            (setq AAA (nentselp PT1))
  239.            (setvar "PICKBOX" 0)
  240.            (setq SSN (car AAA))
  241.            (setq E (entget SSN))
  242.            (setq PT1 (cdr (assoc 10 E)))
  243.            (command "_.OFFSET" (/ AA 2) SSN PT1 "")
  244.            (setq TMP (entget (entlast)))
  245.            (setq 1A10 (cdr (assoc 10 TMP)))
  246.            (setq 1A20 (cdr (assoc 10 (reverse TMP))))
  247.            (command "_.OFFSET" AA (ssget "L") PT1 "")
  248.            (setq TMP (entget (entlast)))
  249.            (setq 2A10 (cdr (assoc 10 TMP)))
  250.            (setq 2A20 (cdr (assoc 10 (reverse TMP))))
  251.            (command "_.LINE" 1A10 2A10 "")
  252.            (command "_.LINE" 1A20 2A20 "")
  253.          )
  254.          (progn
  255.            (setq A10 (cdr (assoc 10 AQ)))
  256.            (setq ANG (angle '(0 0 0) A10))
  257.            (setq PT1 (polar A10 ANG 0.1))
  258.            (setvar "PICKBOX" 1)
  259.            (setq AAA (nentselp PT1))
  260.            (setvar "PICKBOX" 0)
  261.            (setq SSN (car AAA))
  262.            (setq E (entget SSN))
  263.            (setq PT1 (cdr (assoc 10 E)))
  264.            (command "_.OFFSET" (/ AA 2) SSN PT1 "")
  265.            (setq TMP11 (entlast))
  266.            (setq ATMP11
  267.                   (vlax-curve-getarea (vlax-ename->vla-object TMP11))
  268.            )
  269.            (command "_.OFFSET" AA (ssget "L") PT1 "")
  270.            (setq TMP22 (entlast))
  271.            (setq ATMP22
  272.                   (vlax-curve-getarea (vlax-ename->vla-object TMP22))
  273.            )
  274.            (command "_.REGION" TMP11 "")
  275.            (setq 1A10 (entlast))
  276.            (command "_.REGION" TMP22 "")
  277.            (setq 1A20 (entlast))
  278.            (if (> ATMP11 ATMP22)
  279.              (command "_.SUBTRACT" 1A10 "" 1A20 "")
  280.              (command "_.SUBTRACT" 1A20 "" 1A10 "")
  281.            )
  282.            (ssadd (entlast) YY)
  283.          )
  284.        )
  285.       )
  286.       ((= A0 "POLYLINE")
  287.        (setq AQ (entget A))
  288.        (setq A70 (cdr (assoc 70 AQ)))
  289.        (if (/= A70 1)
  290.          (progn
  291.            (setq A10 (nth 0 (GETPL A)))
  292.            (setq ANG (angle '(0 0 0) A10))
  293.            (setq PT1 (polar A10 ANG 0.1))
  294.            (setvar "PICKBOX" 1)
  295.            (setq AAA (nentselp PT1))
  296.            (setvar "PICKBOX" 0)
  297.            (setq SSN (car AAA))
  298.            (setq E (entget SSN))
  299.            (setq PT1 (cdr (assoc 10 E)))
  300.            (command "_.OFFSET" (/ AA 2) SSN PT1 "")
  301.            (setq PL (GETPL (entlast)))
  302.            (setq 1A10 (nth 0 PL))
  303.            (setq 1A20 (nth 0 (reverse PL)))
  304.            (command "_.OFFSET" AA (ssget "L") PT1 "")
  305.            (setq PL (GETPL (entlast)))
  306.            (setq 2A10 (nth 0 PL))
  307.            (setq 2A20 (nth 0 (reverse PL)))
  308.            (command "_.LINE" 1A10 2A10 "")
  309.            (command "_.LINE" 1A20 2A20 "")
  310.          )
  311.          (progn
  312.            (setq PL (GETPL A))
  313.            (setq A10 (nth 0 PL))
  314.            (setq ANG (angle '(0 0 0) A10))
  315.            (setq PT1 (polar A10 ANG 0.1))
  316.            (setvar "PICKBOX" 1)
  317.            (setq AAA (nentselp PT1))
  318.            (setvar "PICKBOX" 0)
  319.            (setq SSN (car AAA))
  320.            (setq E (entget SSN))
  321.            (setq PT1 (cdr (assoc 10 E)))
  322.            (command "_.OFFSET" (/ AA 2) SSN PT1 "")
  323.            (setq TMP11 (entlast))
  324.            (setq ATMP11
  325.                   (vlax-curve-getarea (vlax-ename->vla-object TMP11))
  326.            )
  327.            (command "_.OFFSET" AA (ssget "L") PT1 "")
  328.            (setq TMP22 (entlast))
  329.            (setq ATMP22
  330.                   (vlax-curve-getarea (vlax-ename->vla-object TMP22))
  331.            )
  332.            (command "_.REGION" TMP11 "")
  333.            (setq 1A10 (entlast))
  334.            (command "_.REGION" TMP22 "")
  335.            (setq 1A20 (entlast))
  336.            (if (> ATMP11 ATMP22)
  337.              (command "_.SUBTRACT" 1A10 "" 1A20 "")
  338.              (command "_.SUBTRACT" 1A20 "" 1A10 "")
  339.            )
  340.            (ssadd (entlast) YY)
  341.          )
  342.        )
  343.       )
  344.     )
  345.     (command "_.ERASE" A "")
  346.     (setq N (1+ N))
  347.   )
  348.   (setvar "pickbox" HOLDPICK)
  349. )

  351. (defun GETPL (ED / E PL P10)
  352.   (setq E (cdr (assoc -1 (entget ED))))
  353.   (while (setq E (entnext E))
  354.     (if        (setq P10 (cdr (assoc 10 (entget E))))
  355.       (setq PL (cons P10 PL))
  356.     )
  357.   )
  358.   (reverse PL)
  359. )
  360. (prompt "\nType ddline")
  361. (princ)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

binbin
发表于 2002-5-2 21:45:41 | 显示全部楼层
先“偏移”，在偏移的线找交点，交点处断开相交的两直线，再寻找与原来直线相交的线，删除它。ok。
可以看看我写的道路程序，大部分可以实现，不过还有一些小毛病。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2002-5-10 03:39:02 | 显示全部楼层
俺在line时的处理：
1。用线型定义墙厚，一目了然。
2。偏移。不用多说，各位办法多多。
3。根据交点和开门窗点计算，形成开口端表。
4。根据端点的交叉情况，处理端点。
5，由端点和开口表entmake line线。

优点：只对中线处理，中线也好检查，
成功率》tch，《abd5.0，它对弧线
的处理也相当稳定。对于复杂交接
和重线情况基本上不用调整修改。（附图）

缺点：对arc等其他线型还找不到好的处理
办法，(头痛＋犯懒:)  )。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2002-5-10 03:45:57 | 显示全部楼层
图挂不上，再来。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

梦断江南
 楼主| 发表于 2002-5-10 09:28:59 | 显示全部楼层
cy956的图：
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2002-5-10 11:39:04 | 显示全部楼层
xd这里可能某些字符是格式符，吞字，写的字
和显的字不一样，说的意思拧了。

老菜的程序中对弧线开口的处理没考虑，而不是
“对弧线 的处理也相当稳定”－－－想着
头痛也犯懒。很久了，就是加不上弧线部分。:)

不过直线部分成功率还算高，看看附图，如果用tch3.0，
不知会漏几根线。实际上用fillet，break在捕捉时
很容易出错，包括abd2.0～3.5的版本。

我程序中最关键的函数实际上是abd
的left（判断点在线的左上右的，明经那儿也登了，他
还说是无名氏，呵呵）。

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

使用道具 举报

梦断江南
 楼主| 发表于 2002-5-10 20:06:44 | 显示全部楼层
cy956程序贴出来看看吧:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2002-5-11 06:24:06 | 显示全部楼层
我定义墙中线的理由：

用线型定义，一目了然，所以以前用xdata记录，
后来开倒车用复杂线型。因为常用的墙厚就几种，
60，90，100，120，180，200，240，370，
也写过输墙厚在acad.lin文件中加线型定义的程序，
作为临时增加。这几个常用线型在样板图中始终存在。

所有的操作只对中线进行，即使重线，只要重线
是一样的墙厚，变双结果一样。

墙中偏移，在当年用archtlt时，就发现虽然可以
定义墙偏移，但是一旦copy，mirror，线的头尾
点可能不如所愿，造成反偏移，而且未变双看不
出来，变双后再检查又很麻烦。所以我取消偏移，
当然也简化了程序。

单线变双，我感觉最好的是abd5.0和得赛，成功率
都相当高；tch3.0的水平和abd早期版本差不多，稍
微复杂就容易漏线，乱连。不过得赛的D版少见，abd
的操作麻烦。所以当时决定自己写一个，花了3天初稿，
补充测试15天，但是没加入弧线部分，因为弧线部分
连门窗的定义方式都没确定。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

caibaobao
发表于 2002-5-11 22:22:57 | 显示全部楼层
快加油啊，老菜，看在我们500年前是一家的份上：—）
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-1 14:23 , Processed in 0.447844 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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