[编程申请]：标长度

chenhang1203 · 发表于 2003-8-1 08:17:29

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

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

×

想请高手编个程序，要求选中直线或者多义线后能把线段长度标在直线中部的边上，比例、字高、字型要是程序能允许设置就更好了。谢谢大家先！

XDSoft · 发表于 2003-8-1 08:58:33

最初由 chenhang1203 发布
[B]想请高手编个程序，要求选中直线或者多义线后能把线段长度标在直线中部的边上，比例、字高、字型要是程序能允许设置就更好了。谢谢大家先！ [/B]

贴张图都论坛吧,尤其是多义线的,怎么标注.

另外,说明下这个程序是用到什么专业上的.

chenhang1203 · 发表于 2003-8-1 09:58:01

我学给排水的，经常要标管子的长度，以前都要用dist测量线长，在写长度，费时较多，所以想请大家帮忙

lsjjm · 发表于 2003-8-1 18:13:32

下面的程序可以返回直线，多义线和曲线的长度
(defun test (ent)
  (vl-load-com)
  (setq obj (vlax-ename->vla-object ent))
  (vlax-curve-getDistAtParam obj
(vlax-curve-getEndParam obj)
  )
)

chenhang1203 · 发表于 2003-8-3 19:24:22

最初由 lsjjm 发布
[B]下面的程序可以返回直线，多义线和曲线的长度
(defun test (ent)
  (vl-load-com)
  (setq obj (vlax-ename->vla-object ent))
  (vlax-curve-getDistAtParam obj
(vlax-curve-getEndParam obj)
  )
) [/B]

什么意思，演示下行吗

XDSoft · 发表于 2003-8-3 19:39:36

最初由 chenhang1203 发布
[B]我学给排水的，经常要标管子的长度，以前都要用dist测量线长，在写长度，费时较多，所以想请大家帮忙 [/B]

上面图中，一个线被中间的竖线分开的，下面的线是一个整体吗？如果是，那么你要靠选实体来标注不能实现，只能选两点，然后计算两点间的距离标上。

eachy · 发表于 2003-8-3 19:44:47

最初由 chenhang1203 发布
[B]想请高手编个程序，要求选中直线或者多义线后能把线段长度标在直线中部的边上，比例、字高、字型要是程序能允许设置就更好了。谢谢大家先！ [/B]

以前讨论过类似的程序，用标注样式也可以，设置时去掉延伸线箭头，仅留下数字。
http://www.xdcad.net/forum/showthread.php?s=&threadid=28117

chenhang1203 · 发表于 2003-8-3 21:06:42

最初由 eachy 发布
[B]
以前讨论过类... [/B]

谢谢关心，如果这样的话，不能一次性完成工作，需要一条条的去标注，工作量还是很大的：（

最初由 XDSoft 发布
[B]

上面图中，一个线被中间的竖线分开的，下面的线... [/B]

谢谢关心我的问题，下面的线不是整体的，所有的节点都是断开的，都是作为单独的实体的

eachy · 发表于 2003-8-3 21:38:08

先设定一个标注样式。

($xdrx_load "xdlsp.lsp")
(defun c:test (/ ss sp ep n plst)
(setq ss (ssget '((0 . "*polyline,line"))))
(if ss
(progn
(xdrx_begin)
(xdrx_sysvar_push "dimzin" "osmode")
(setvar "dimzin" 0)
(setvar "osmode" 0)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (= (xdrx_getentdxf 0) "LINE")
(progn
(setq sp (xdrx_getentdxf 10)
ep (xdrx_getentdxf 11)
)
(xdrx_dimension_MakeAlign
sp
ep
(polar sp (+ (angle sp ep) _pi2) 1.0)
)
)
(progn
(setq n 0)
(repeat (xdrx_polyline_numVerts e)
(setq plst (cons (xdrx_polyline_getPointAt e n) plst)
n (1+ n)
)
)
(while (> (length plst) 1)
(xdrx_dimension_MakeAlign
(car plst)
(cadr plst)
(polar (car plst)
(+ (angle (car plst)
(cadr plst)
)
_pi2
)
1.0
)
)
(setq plst (cdr plst))
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)
)
(princ)
)

($xdrx_load "xdlsp.lsp") 
(defun c:test (/ ss sp ep n plst) 
  (setq ss (ssget '((0 . "*polyline,line")))) 
  (if ss 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push "dimzin" "osmode") 
      (setvar "dimzin" 0) 
      (setvar "osmode" 0) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (if (= (xdrx_getentdxf 0) "LINE") 
          (progn 
            (setq sp (xdrx_getentdxf 10) 
                  ep (xdrx_getentdxf 11) 
            ) 
            (xdrx_dimension_MakeAlign 
              sp 
              ep 
              (polar sp (+ (angle sp ep) _pi2) 1.0) 
            ) 
          ) 
          (progn 
            (setq n 0) 
            (repeat (xdrx_polyline_numVerts e) 
              (setq plst (cons (xdrx_polyline_getPointAt e n) plst) 
                    n         (1+ n) 
              ) 
            ) 
            (while (> (length plst) 1) 
              (xdrx_dimension_MakeAlign 
                (car plst) 
                (cadr plst) 
                (polar (car plst) 
                       (+ (angle (car plst) 
                                 (cadr plst) 
                          ) 
                          _pi2 
                       ) 
                       1.0 
                ) 
              ) 
              (setq plst (cdr plst)) 
            ) 
          ) 
        ) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
      (princ) 
    ) 
  ) 
  (princ) 
)

chenhang1203 · 发表于 2003-8-4 09:10:44

谢谢eachy ，用标注来实现也不错，就是多了个炸开命令，不过比我以前要快多了啊，谢谢拉

eachy · 发表于 2003-8-4 11:40:36

最初由 chenhang1203 发布
[B]谢谢eachy ，用标注来实现也不错，就是多了个炸开命令，不过比我以前要快多了啊，谢谢拉 [/B]

为什么要炸开？标注编辑很方便呀！

msdg · 发表于 2003-8-4 12:36:39

一直关心这个问题，我也来凑个热闹。请楼上各位帮帮忙！若各位还有需要补充的，请跟贴。请EACHY兄根据情况整理出一适合多数人的工具，以后使用岂不更爽！

chenhang1203 · 发表于 2003-8-4 13:50:58

最初由 eachy 发布
[B]
为什么要炸开？标注编辑很方便呀！ [/B]

要是不把标注炸开，使标注的值成为文字，请问如何一次性的在每个数字后加长度，前面加管径、材料等，便于修改呢？

msdg · 发表于 2003-8-4 14:47:40

在特性里可以修改呀！当然若炸开后可以利用工具批量修改。

chenhang1203 · 发表于 2003-8-4 15:08:07

对啊，我就是要求批量修改啊，要不请各位高手编程做什么呢？

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

[编程申请]：标长度

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

相关帖子

Re: [编程申请]：标长度

Re: [编程申请]：标长度

Re: Re: [编程申请]：标长度