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