iCAx开思网

标题: 求助各位高手,关于标注的问题 [打印本页]

作者: jiayun    时间: 2005-11-9 16:40
标题: 求助各位高手,关于标注的问题
哪位大虾知道,在CAD里,对很多孔的位置和直径坐标可否以列表的形式标注出来
作者: luckmeifei    时间: 2005-11-9 16:57
??????有些不明白你的问题.
作者: 北极光    时间: 2005-11-9 21:02
标题: ????
你要表达清楚啊!
作者: mda_fai    时间: 2005-11-10 00:05
打 dor命令,前提是先要设定好ucs到基准或叁考点。
作者: jiayun    时间: 2005-11-10 08:42
很多孔,标注起来很麻烦,想用列表的方式把每个孔的圆心坐标和该孔的直径标注出来,CAXA有这功能,不知CAD2005可否这样标注?请教各位大虾
作者: ADSHENG    时间: 2005-11-10 08:53
呵呵.類似頂針自動標示命令的作用嗎?論壇上好像有這樣的lisp

[ 本帖最后由 ADSHENG 于 2005-11-10 09:03 编辑 ]
作者: jiayun    时间: 2005-11-10 09:05
4楼的,先谢谢了,我不太明白你的意思,UCS定到基准点后,然后怎么做?Dor是什么命令,在命令行输入后,提示命令不对呀
作者: jiayun    时间: 2005-11-10 09:13
6楼的,对,就是这样标注,非常感谢!请教,怎样来做?论坛里我找不找.
作者: jiayun    时间: 2005-11-10 09:17
6楼的,对,就是这样标注,非常感谢!请教,怎样来做?论坛里我找不到.
作者: ADSHENG    时间: 2005-11-10 13:26
應該是有的,或者你到別的論壇上找下,我上面的圖是我廠里以前那個工程師帶的LISP,我現在只有圖,LISP早已找不到了.我在找下看,找到了我貼出來,DOR是標注座標的吧?
作者: ADSHENG    时间: 2005-11-10 13:26
應該是有的,或者你到別的論壇上找下,我上面的圖是我廠里以前那個工程師帶的LISP,我現在只有圖,LISP早已找不到了.我在找下看,找到了我貼出來,DOR是標注座標的吧?
作者: ADSHENG    时间: 2005-11-10 14:00
在塑膠模的區域上啊.我也只是看了一下,我現在工作上都用不到這個LISP,你去下載來看下.別的論壇去番下舊帖子應該還有的,是叫"頂針標注自動化"
   祝你好運!!
https://www.icax.org/viewthread. ... amp;extra=page%3D23
作者: jiayun    时间: 2005-11-10 14:48
谢谢楼上的了,我找找看。
作者: ADSHENG    时间: 2005-11-10 20:07
不客氣,別的網站好像也有的.多番下.不好意思,幫不了啦!
作者: chenjian1    时间: 2005-11-15 19:51
;;;自动标注模孔坐标,自动寻的(旁注)
;;;command: AD3
;;;2004-06-07     Chen Jian
;;;Version 1.0
;;;2005-09-21     Chen Jian
;;;Version 1.1
;;;2005-09-26     Chen Jian
;;;Version 1.2
;;;MADE IN CHINA
(defun c:AD3 (/                 dim-pt1   ssss      sss
              ss        ss1          ss2            ss3              circle-name
              pt1        pt2          pt1x            pt1y      y1
              y2        y3          circle-color              circle-linetype
              circle-lay          i            cpty      oldcolor
              temp        n          temp-cptx nn              j
                  num       circle-dia
             )
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (if (null name)(setq name (strcase (getstring "\n圆孔的名字: "))))
  (setq dim-pt1 nil)
  (setq ssss nil)
  (setq sss nil)
  (setq ss1 nil)
  (while (= sss nil)
    (setq sss (ssget '((0 . "CIRCLE")))) ;创建圆对象的选择集
  )
  (setq circle-name (ssname sss 0))
  (sub-get-circle-data circle-name)
  (setq pt1 (getpoint "\n模板右上角: "))
  (if (null pt1)
    (setq pt1 (list 350 150))
  )
  (setq pt2 (list 0 0))
  (setq pt1x (fix (car pt1)))
  (setq pt1y (fix (cadr pt1)))
;;;  取得选择集SS START
  (setq y1 (/ pt1y 3.0))
  (setq y2 (* (/ pt1y 3.0) 2))
  (setq y3 pt1y)
  (setq ss (ssadd))
;;;  取得选择集ssss
;;;  (setq ssss nil)
  (if (or(or (null circle-color)(null circle-linetype))(null circle-lay))
    (progn
    (Princ "\n---可能 '不支持' 对象的 '随层' 属性!")
    (sub-quit))
  )
  (setq        ssss (ssget "_C"
                    pt1
                    pt2
                    (list (cons 0 "CIRCLE")
                          (cons 40 circle-rad)
                          (cons 62 circle-color)
                          (cons 6 circle-linetype)
                          (cons 8 circle-lay)
                    )
             )
  )
  (if (null ssss)
    (progn
    (Princ "\n---可能未选择到物体!")
    (sub-quit))
    (progn
;;;  取得选择集ss1,ss2,ss3
      (setq ss1 (ssadd))
      (setq ss2 (ssadd))
      (setq ss3 (ssadd))
      (setq i 0)
      (repeat (sslength ssss)
        (setq circle-name (ssname ssss i)) ;取得对象的名字
        (sub-get-circle-data circle-name)                ;取得对象参数
        (if (< cpty y1)
          (ssadd circle-name ss1)
        )
        (if (and (<= cpty y2) (>= cpty y1))
          (ssadd circle-name ss2)
        )
        (if (> cpty y2)
          (ssadd circle-name ss3)
        )
        (setq i (1+ i))
      )
;;;      (setq ss1 ss1)
      (SUB-paixu ss1)
;;;      (setq ss1 ss2)
      (SUB-paixu ss2)
;;;      (setq ss1 ss3)
      (SUB-paixu ss3)
;;;取得选择集SS END
      (setq oldcolor (getvar "CECOLOR"))
      (if (null circle-color)
        (setvar "CECOLOR" "256")
        (setvar "CECOLOR" (rtos circle-color 2 0))
      )

      (sub1-getcircle)
      (setvar "CECOLOR" oldcolor)
      (setq ss nil)
      (command "undo" "e")
      (setq name nil)
      (setq centx nil)
      (if printtext
      (Princ printtext)
      (Princ "\n-----Bye c:AD3 自动标注模孔坐标,自动寻的(旁注)------"))
      (prin1)
    )
  )
)
请注意,未贴子程序,只想告诉大家算法,下面有效果图
作者: chenjian1    时间: 2005-11-15 19:55

作者: jiayun    时间: 2005-11-16 12:33
15楼的,谢谢了,但我不知道怎么用,请指教




欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3