求一个切剖面工具，支持64位CAD，最好可以支持到2012以上版本的

seclone · 发表于 2013-7-10 12:00:13

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

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

×

本帖最后由 seclone 于 2013-7-11 15:08 编辑

以前用凉开水、L剖面软件等工具箱，里面有切剖面的实用工具，
最近换了电脑，系统是64位的，以前搜集的切剖面工具都不能用。
谁有这样的工具，扔过来一个，感激涕零！

顺便附带一个以前常用的凉开水插件，和原作者联系过，不愿意再继续开发了。
L剖面软件没有和作者联系，里面有切剖面的演示，如下图，需要的可以http://linshu.ys168.com/这里下载。
这些工具对勘测设计还是比较实用的，遗憾的是只能支持到-2009。，且不支持64位系统的。
本人用的是64位操作系统，安装cad2012之后，即便解压凉开水里面的程序，加载里面关于切剖面的vbA程序也不能运行，L工具也一样。望高手帮忙解决。
需要的效果如图所示

Free-Lancer · 发表于 2013-7-10 19:03:27

剖什么？地形图？建筑？其他？

newer · 发表于 2013-7-10 19:18:51

楼主，先要学会如何求助。

把你原来的工具做个介绍，演示，说下怎么做，截图，附DWG图纸。。。。。

seclone · 发表于 2013-7-11 11:47:45

地形图等高线赋有高程值，沿着工程轴线或者需要的直线，可以直接生成地形剖面图的那种工具，效果如下，因系统不支持，不能演示。

登录/注册后可看大图

newer · 发表于 2013-7-11 12:43:47

seclone 发表于 2013-7-11 11:47
地形图等高线赋有高程值，沿着工程轴线或者需要的直线，可以直接生成地形剖面图的那种工具，效果如下， ...

难道让帮你的人自己去画那些登高线啊。

附个DWG图上来吧。

seclone · 发表于 2013-7-11 14:37:06

本帖最后由 seclone 于 2013-7-11 14:52 编辑

初来，不懂规矩啊。。
图和工具都附带了。

st788796 · 发表于 2013-7-11 15:27:51

XDAPI中的 xdrx_curve_closestpoint 可以求两个空间线最近距离，做这个剖切正合适，不过还有BUG，期待改进

seclone · 发表于 2013-7-12 10:19:53

有么有哪位高手直接把凉开水或者是其中切剖面的插件直接改的可以支持 cad2012-64位？

XDSoft · 发表于 2013-7-12 10:34:17

seclone 发表于 2013-7-12 10:19
有么有哪位高手直接把凉开水或者是其中切剖面的插件直接改的可以支持 cad2012-64位？

首先这个论坛不是谁都用过凉白开，也不是每个朋友都和你一个专业。

所以，如果有问题，请把你的问题详细描述，贴图，传DWG文件。

你这个问题有朋友问你要测试图纸了，你不提供，人家怎么帮你呢？

XDSoft · 发表于 2013-7-12 10:37:40

回完你，才看到你编辑帖子传上来图了。

这个不是哪个论坛的规矩，而是通常求助别人的方法，越方便别人，也就越方便自己。

如果有程序给你贴上程序来，需要改进什么的，请详细的说下，因为和你不同专业概率很大的。

Free-Lancer · 发表于 2013-7-12 10:39:45

如果是vba，2012需要单独安装的来自: Android客户端

seclone · 发表于 2013-7-12 11:01:00

Free-Lancer 发表于 2013-7-12 10:39
如果是vba，2012需要单独安装的

VBA开始安装了，还是不能调用，可能当时没有机子没有重启的原因吧，重启之后可以调用 VBA，但工作的时候总是出现死机BUG。。。
解开凉开水，lisp中 GeoSection这个VBA工程。。。

牢固 · 发表于 2013-7-13 01:45:11

本帖最后由牢固于 2013-7-13 10:20 编辑

用晓东API写的示意代码，你自己去完善和修饰吧！
剖面图.gif

(defun c:t24 (/ E1 PTS SS E PL PT DIST H MINH MAXH PTLST CURVELEN LOWERH P1 l zoomp) (xdrx_begin)
(xdrx_document_ucson)
(setq e1 (car (xdrx_entsel "\n选择对象:" '((0 . "*line,arc")))))
(setq pts (xdrx_getsamplept e1))
(if (apply 'xdrx_isptoffscr pts)
(progn
(command "_zoom" "w" (apply 'mapcar (cons 'min pts)) (apply 'mapcar (cons 'max pts)) )
(setq zoomp t)
)
)
(setq ss (ssget "_F" pts '((0 . "*POLYLINE"))))
(if zoomp (command "_zoom" "_p"))
(xdrx_setsstodb ss 0)
(xdrx_document_ucsoff)
(while (setq e (xdrx_getentdata 0))
(setq pl (append pl (xdrx_entity_OrthoPrjInterSectWith e1 e 0)))
)
(setq pl
(vl-sort
pl
(function
(lambda (a b)
(< (vlax-curve-getParamAtPoint e1 (VLAX-CURVE-GETCLOSESTPOINTTO e1 (car a)))
(vlax-curve-getParamAtPoint e1 (VLAX-CURVE-GETCLOSESTPOINTTO e1 (car b)))
)
)
)
)
)
(setq pt (trans (getpoint "\n剖面图摆放位置:") 1 0))
(foreach a pl
(setq dist (vlax-curve-getDistAtPoint e1 (VLAX-CURVE-GETCLOSESTPOINTTO e1 (car a)))
h (last (cadr a))
)
(if (not minh)
(setq minh h maxh h)
(setq minh (min minh h)
maxh (max maxh h)
)
)
(setq ptlst (cons (list dist h 0) ptlst))
)
(setq curvelen (vlax-curve-getDistAtParam e1 (vlax-curve-getEndParam e1)))
(setq lowerh (- 10 (* 10 (fix (* minh 0.1)))))
(setq ptlst (mapcar '(lambda (x) (mapcar '+ pt x (list 0 lowerh 0))) ptlst))
(apply 'xdrx_line_make ptlst)
(xdrx_line1 pt (setq p1 (polar pt 0 curvelen)))
(xdrx_line1 pt (polar pt (* 0.5 pi) (+ (+ 20 (* 10 (fix (* 0.1 maxh)))) lowerh)))
(xdrx_line1 p1 (polar p1 (* 0.5 pi) (+ (+ 20 (* 10 (fix (* 0.1 maxh)))) lowerh)))
(entmake
(list '(0 . "TEXT")
'(67 . 0)
'(100
.
"AcDbText"
)
(cons 10 pt)
(cons 40 2.0)
(cons 1 (rtos (abs lowerh) 2 0))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
'(7 . "standard")
)
)
(entmake
(list '(0 . "TEXT")
'(67 . 0)
'(100
.
"AcDbText"
)
(cons 10 p1)
(cons 40 2.0)
(cons 1 (rtos (abs lowerh) 2 0))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
'(7 . "standard")
)
)
(xdrx_end)
)

(defun c:t24 (/ E1 PTS SS E PL PT DIST H MINH MAXH PTLST CURVELEN LOWERH P1 l zoomp)  (xdrx_begin) 
  (xdrx_document_ucson) 
  (setq e1 (car (xdrx_entsel "\n选择对象:" '((0 . "*line,arc"))))) 
  (setq pts (xdrx_getsamplept e1)) 
  (if (apply 'xdrx_isptoffscr pts) 
    (progn 
      (command "_zoom" "w" (apply 'mapcar (cons 'min pts)) (apply 'mapcar (cons 'max pts)) ) 
      (setq zoomp t) 
      ) 
    ) 
  (setq ss (ssget "_F" pts '((0 . "*POLYLINE")))) 
  (if zoomp (command "_zoom" "_p")) 
  (xdrx_setsstodb ss 0) 
  (xdrx_document_ucsoff) 
  (while (setq e (xdrx_getentdata 0)) 
    (setq pl (append pl (xdrx_entity_OrthoPrjInterSectWith e1 e 0))) 
    ) 
  (setq pl 
         (vl-sort 
           pl 
           (function 
             (lambda (a b) 
               (< (vlax-curve-getParamAtPoint e1 (VLAX-CURVE-GETCLOSESTPOINTTO e1 (car a))) 
                  (vlax-curve-getParamAtPoint e1 (VLAX-CURVE-GETCLOSESTPOINTTO e1 (car b))) 
                   ) 
               ) 
             ) 
           ) 
        ) 
 
   (setq pt (trans (getpoint "\n剖面图摆放位置:") 1 0)) 
  (foreach a pl 
    (setq dist (vlax-curve-getDistAtPoint e1 (VLAX-CURVE-GETCLOSESTPOINTTO e1 (car a))) 
          h (last (cadr a)) 
          ) 
    (if (not minh) 
      (setq minh h maxh h) 
      (setq minh (min minh h) 
            maxh (max maxh h) 
            ) 
      ) 
    (setq ptlst (cons (list dist h 0) ptlst)) 
    ) 
  (setq curvelen (vlax-curve-getDistAtParam e1 (vlax-curve-getEndParam e1))) 
  (setq lowerh (- 10 (* 10 (fix (* minh 0.1))))) 
  (setq ptlst (mapcar '(lambda (x) (mapcar '+ pt x (list 0 lowerh 0))) ptlst)) 
  (apply 'xdrx_line_make ptlst) 
  (xdrx_line1 pt (setq p1 (polar pt 0 curvelen))) 
  (xdrx_line1 pt (polar pt (* 0.5 pi) (+ (+ 20 (* 10 (fix (* 0.1 maxh)))) lowerh))) 
  (xdrx_line1 p1 (polar p1 (* 0.5 pi) (+ (+ 20 (* 10 (fix (* 0.1 maxh)))) lowerh))) 
  (entmake 
  (list        '(0 . "TEXT") 
        '(67 . 0) 
        '(100 
          . 
          "AcDbText" 
         ) 
        (cons 10 pt) 
        (cons 40 2.0) 
        (cons 1 (rtos (abs lowerh) 2 0)) 
        (cons 50 0) 
        (cons 41 0.8) 
        (cons 51 0) 
        '(7 . "standard") 
  ) 
) 
  (entmake 
  (list        '(0 . "TEXT") 
        '(67 . 0) 
        '(100 
          . 
          "AcDbText" 
         ) 
        (cons 10 p1) 
        (cons 40 2.0) 
        (cons 1 (rtos (abs lowerh) 2 0)) 
        (cons 50 0) 
        (cons 41 0.8) 
        (cons 51 0) 
        '(7 . "standard") 
  ) 
) 
  (xdrx_end) 
  )

eachy · 发表于 2013-7-13 10:10:25

牢固发表于 2013-7-13 01:45
用晓东API写的示意代码，你自己去完善和修饰吧！

G版，老大新写了个函数 xdrx_entity_orthoprjintersectwith 可以直接求出空间Curve的外观交点了，返回值是点表，两两对应，是Curve自身上点

(xdrx_entity_orthoprjintersectwith e1 e2)

牢固 · 发表于 2013-7-13 10:22:00

eachy 发表于 2013-7-13 10:10
G版，老大新写了个函数 xdrx_entity_orthoprjintersectwith 可以直接求出空间Curve的外观交点了，返回值 ...

呵呵，用的就是这个函数！

账号		自动登录	找回密码
密码			立即注册

[求助] 求一个切剖面工具，支持64位CAD，最好可以支持到2012以上版本的

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

点评

点评

点评

点评

点评