顶针标注自动化

zjf227

今天应一位朋友的相邀,写了一个顶针标注的程序,经多人使用后得到很好的评价,现将此程序上传与大家一起分享,请大家多多支持,本程序不加密,方便大家学习和高手的指点,本程序较大的特点是不采用属性块的写法,便于大家的修改,以免属性块被炸开之后
由于时间仓促语法难免有所松散,请见谅.
(defun c:zjf()
(command"undo" "group")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "units" "2" "2" "1" "2" "0" "y")
(command "LAYER" "M" "dim" "")
(command "LAYER" "c" "3" "" "")
(COMMAND "STYLE" "Zjf" "SIMFANG.TTF" "2.5" "0.85" "0" "" "" "")   
(setq en (entsel"\nPlease get the pin:"))
  (setq endata (entget(car en)))
   (if (/= (cdr (assoc 0 endata)) "CIRCLE")   
      (setq en (entsel"WRING!!!! NOT A PIN        Please get the pin again :")))
(setq endata (entget(car en)))
(setq n 1)
(get_pts)
(command"undo" "group")
(command"pline" pt1 pt2 pt3 pt4 "c")
(command"line" pta ptb "")
(command"line" PTC ptd "")
(command"line" pte ptf "")
(command "text" tp1 0 "序号")
(command "text" tp2 0 "X坐标")
(command "text" tp3 0 "Y坐标")
(command "text" tp4 0 "直径")
(COMMAND "STYLE" "Zjf" "SIMFANG.TTF" "5" "0.85" "0" "" "" "")   
(command "text" tp5 0 "水平向右为X正向")
(command "text" tp6 0 "注:垂直向上为Y正向")
(command"insert" "FX"  inspt 1 1 0 "")
(get_data)
(get_pt1)
(COMMAND "STYLE" "Zjf" "SIMFANG.TTF" "2.5" "0.85" "0" "" "" "")   
(command "text" ptt1 0 1)
(command"pline" p1 p2 p3 p4 "")
(command"line" pp1 pp2 "")
(command"line" pp3 pp4 "")
(command"line" pp5 pp6 "")
(command "text" ta 0 n)
(command "text" tb 0 (rtos xx 2 2))
(command "text" tc 0 (rtos yy 2 2))
(command "text" td 0 (rtos circle 2))
(prin1)
  
(setq np1 p2)
(setq ap1 pp2)
(setq ap3 pp4)
(setq ap5 pp6)
  
(while en
(setq en (entsel"\nPlease get the pin:"))
(get_data)
(setq np2 (polar np1 (* pi 0.5) 6))
(setq np3 (polar np2 0 68))
(setq np4 (polar np1 0 68))
(setq ap2 (polar ap1 (* pi 0.5) 6))
(setq ap4 (polar ap3 (* pi 0.5) 6))
(setq ap6 (polar ap5 (* pi 0.5) 6))
(setq tta (polar np1 (* pi 0.12) 6))
(setq ttb (polar ap1 (* pi 0.12) 5))
(setq ttc (polar ap3 (* pi 0.12) 5))
(setq ttd (polar ap5 (* pi 0.12) 4.5))
  
(setq n (+ n 1))
(command"pline" np1 np2 np3 np4 "")
(command"line" ap1 ap2 "")
(command"line" ap3 ap4 "")
(command"line" ap5 ap6 "")
(get_data)
(command "text" ptt1 0 n)
(command "text" tta 0 n)
(command "text" ttb 0 (rtos xx 2 2))
(command "text" ttc 0 (rtos yy 2 2))
(command "text" ttd 0 (rtos circle 2))
(setq np1 np2)
(setq ap1 ap2)
(setq ap3 ap4)
(setq ap5 ap6)
(command "undo" "end")
  )   
(setvar "cmdecho" 1)
(setvar "osmode" "695")
(prin1)
(prompt"********Designed by【  ZJF  】********")
(prin1)  
)
  
(defun get_pt1()
(setq p1 pt4)
(setq x (car p1))
(setq y (CADr p1))
(setq p2 (list x (+ y 6) 0))
(setq p3 (polar p2 0 68))
(setq p4 (polar p1 0 68))
(setq pp2 (polar pp1 (* pi 0.5) 6))
(setq pp4 (polar pp3 (* pi 0.5) 6))
(setq pp6 (polar pp5 (* pi 0.5) 6))
(setq ta (polar p1 (* pi 0.12) 6))
(setq tb (polar pp1 (* pi 0.12) 5))
(setq tc (polar pp3 (* pi 0.12) 5))
(setq td (polar pp5 (* pi 0.12) 4.5))
)
    
(defun get_data()   
  (setq endata (entget (car en)))
  (setq circle (* 2 (cdr (assoc 40 endata))))
    (setq pt1 (cdr (assoc 10 endata)))
    (setq org (getvar "ucsorg"))
    (setq orgx (car org))
    (setq orgy (car (cdr org)))
     (setq ptx (car pt1))
     (setq pty (car (cdr pt1)))
     (setq pt11 (list (- ptx orgx) (- pty orgy)))   
    (print)
(command "donut" "0" "0.5" pt11 "")
(setq ptt1 (polar pt11 (* pi 0.125) (+ (cdr (assoc 40 endata)) 0.5)))
    (setq xx (nth 0 pt11))
    (print xx)
     (setq yy (nth 1 pt11))
    (print yy)
    (print)
)
  
  
  
(defun get_pts()
(setq pt1 (getpoint"\n请选择插入点:"))
(x_y)
(setq pt2 (list (+ x 68) y 0))
(setq inspt (list (+ x 71) (+ y 1) 0))
(setq pt3 (list (+ x 68) (+ y 6) 0))
(setq pt4 (list x (+ y 6) 0))
(setq pta (list (+ x 12) y 0))
(setq ptc (list (+ x 32) y 0))
(setq pte (list (+ x 52) y 0))
(setq ptb (list (+ x 12) (+ y 6) 0))
(setq ptd (list (+ x 32) (+ y 6) 0))
(setq ptf (list (+ x 52) (+ y 6) 0))
(setq tp1 (list (+ x 3) (+ y 1.6) 0))
(setq tp2 (list (+ x 17) (+ y 1.6) 0))
(setq tp3 (list (+ x 37) (+ y 1.6) 0))
(setq tp4 (list (+ x 56.5) (+ y 1) 0))
(setq tp5 (list (+ x 81) (+ y 2.5) 0))
(setq tp6 (list (+ x 72) (+ y 10.5) 0))
(setq p4 p1)
(setq pp1 ptb)
(setq pp3 ptd)
(setq pp5 ptf)
)
  
(defun x_y()
(setq x (car pt1))
(setq y (cadr pt1))
)

2009-boy

cwqp8090

jiang8

zd8211347

lanyu_flypig

jiayun

HZJAEYOUNG

ljj19822002

welldesign