iCAx开思网

标题: 如何将标注的尺寸编序号？如图 [打印本页]

作者: faw715 时间: 2006-3-17 18:05
标题: 如何将标注的尺寸编序号？如图
如何将标注的尺寸编序号？如图，不要插入属性快的方式，对于任意角度旋转的都方便才好，请赐教！

作者: chenguai 时间: 2006-3-17 18:36
期待中，等待高手

作者: xiangliverygood 时间: 2006-3-21 16:13
标题: 很实用,希望高手解决
这个功能很实用,希望高手们解决!

作者: faw715 时间: 2006-3-29 05:24
标题: 真的就这么地了！谁会编个lisp程序，设计得全面些！
真的就这么地了！谁会编个lisp程序，设计得全面些！

作者: klim_520 时间: 2006-5-6 14:47
我也来期待一下！

作者: 苦糖 时间: 2006-5-23 15:27
等待

作者: chenjian1 时间: 2006-5-27 21:30
;;;********************************************************************1
;;;标尺寸序号
;;;command: DA
;;;2005-10-05 Chen Jian
;;;Version 1.1 Add "Enter a start number<1>
;;;2005-08-25 Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun c

A (/ i dia)
  (setvar "cmdecho" 0)
  (setq i nil)
  (setq dia nil)
  (setq i (getint "Enter a start number<1>:"))
  (if (null i)
(setq i 1)
  )
  (setq dia (getreal
      "Enter diameter<5>:"
      )
  )
  (if (null dia)
(setq dia 5)
  )
  (Princ "\n---Enter---to  EXIT...")
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq inpoint (getpoint))
  (while inpoint
(setq sc 0.5)
(if (> i 10)
   (setq sc 0.5)
)
(if (> i 99)
   (setq sc 0.4)
)
(command "text"
      inpoint
      (rtos (* sc dia) 2 1)
      ""
      (rtos i 2 0)
)

(setq ss (ssget "L"))
(setq ssn (ssname ss 0))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (= sstyp "TEXT")
   (progn
(command "ucs" "e" ssn)
(setq box (textbox ssdata))
(setq p1 (car box))
(setq p3 (cadr box))
(setq p2 (list (car p3) (cadr p1)))
(setq p4 (list (car p1) (cadr p3)))
(setq dda (+ (/ (distance p1 p2) 2) 1))
(setq cen (inters p1 p3 p2 p4))
(command "circle" cen (* dia 0.5))
(command "ucs" "

")
   )
)
(setq i (1+ i))
(setq inpoint nil)
(setq inpoint (getpoint))
  )
  (setvar "osmode" os)
;;;  (command "ucs" "")
  (Princ "\n---------------Bye c

A 标尺寸序号---------------"
)
(prin1)
)
在这个基础上改一改就可以了

作者: linduyu_y 时间: 2006-5-28 11:49
1。画图标；
2。”属性定义“--ATTDEF，将数字属性化；
3。块定义；
4。写块；
5。插入块。
OK！

[ 本帖最后由 linduyu_y 于 2006-5-28 11:51 编辑 ]

作者: lyc_26 时间: 2006-5-28 23:34
支持

作者: ahongzai 时间: 2007-12-16 12:48
有没有高手做一个出来用一下嘛

欢迎光临 iCAx开思网 (https://www.icax.org/)