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

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

不知道那位大虾能帮帮忙。

清水白粥 · 发表于 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
(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
(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
这个批量标注，加载后，输入：xbz

这个不错，谢谢分享

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

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

本帖子中包含更多资源