iloveada 发表于 2006-6-2 13:26:00

[求助]求一个能批量标注线段长度的程序

<P>不知道那位大虾能帮帮忙。</P>

清水白粥 发表于 2024-5-1 13:42:03

阳光动力 发表于 2012-6-20 15:21
这个批量标注，加载后，输入：xbz

过了很多年，依然好用，

菜鸟初来乍到 发表于 2023-2-11 10:17:02

阳光动力 发表于 2012-6-20 15:21
这个批量标注，加载后，输入：xbz

感谢分享，谢谢

阳光动力 发表于 2012-6-20 15:21:37

这个批量标注，加载后，输入：xbz

缘份呐 发表于 2012-6-20 17:38:59

(defun c:dll( / rs n po px py rv ang1 ang2 angc cx cy tslst)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n 请选择标注对象： ")
(setq rs (ssget '((0 . "circle,arc,line"))))
(if rs
(progn
(setq n 0)
(repeat (sslength rs)
(setq rslst(entget(ssname rs n)))
(setq po (cdr (assoc 10 rslst)))
(setq px (car po))
(setq py (cadr po))
(setq rv (cdr (assoc 40 rslst)))
(cond
((= "ARC" (cdr (assoc 0 rslst)))
(setq ang1 (cdr (assoc 50 rslst)))
(setq ang2 (cdr (assoc 51 rslst)))
(setq angc (/ (+ ang2 ang1 ) 2.0))
(setq cx (+ px (* rv (cos angc))))
(setq cy (+ py (* rv (sin angc))))
(command"dimradius" (list (ssname rs n) (list cx cy 0)) "")
)
((= "CIRCLE" (cdr (assoc 0 rslst)))
(setq angc (/ pi 4.0))
(setq cx (+ px (* rv (cos angc))))
(setq cy (+ py (* rv (sin angc))))
(command "dimdiameter" (list (ssname rs n) (list cx cy 0)) "")
)
((= "LINE" (cdr (assoc 0 rslst)))
(setq po (cdr (assoc 10 rslst)))
(setq pn (cdr (assoc 11 rslst)))
(setq pox (car po)
      poy (cadr po))
(setq pnx (car pn)
      pny (cadr pn))
(setq pzx (/ (+ pox pnx) 2.0)
      pzy (/ (+ poy pny) 2.0))
(setq pz (list (- pzx 2) (+ 2 pzy) 0))
(command "dimaligned" po pn pz )
)
)
(setq n (1+ n))
)
)
)
(setvar "osmode" os)
(princ)
)

汽车线束 发表于 2012-6-21 15:21:36

谢谢分享，有可以自动计算cad图里每一条线长度的代码呀，我是做线束的

海盗曹 发表于 2013-1-9 20:19:18

学习下好程序~

xsso 发表于 2013-1-9 22:41:45

程序不错啊

Kall 发表于 2013-3-6 21:05:46

缘份呐 发表于 2012-6-20 17:38 static/image/common/back.gif
(defun c:dll( / rs n po px py rv ang1 ang2 angc cx cy tslst)
(setq os (getvar "osmode"))
(setv ...

谢谢分享

sotop 发表于 2013-5-4 02:49:10

不错，支持一下

注册 发表于 2013-5-25 20:41:11

缘份呐 发表于 2012-6-20 17:38 static/image/common/back.gif
(defun c:dll( / rs n po px py rv ang1 ang2 angc cx cy tslst)
(setq os (getvar "osmode"))
(setv ...

标准的尺寸线与线段重合，请问如何处理

注册 发表于 2013-5-25 20:42:47

阳光动力 发表于 2012-6-20 15:21 static/image/common/back.gif
这个批量标注，加载后，输入：xbz

这个不错，谢谢分享
页: [1] 2
查看完整版本: [求助]求一个能批量标注线段长度的程序