程序执行会跑出“F2”键效果的怪现象

李义东 · 发表于 2005-4-8 13:03:00

原程式如下，执行时会跑出“F2”键效果的怪现象请大家帮忙 (defun C:arcct (/ ent_sel ent_data qty1 cb1 rad dad2 atext1 atext2 atext3)


(setq ent_sel (entsel "\请选取要标注的沉头圆"))
(setq qty1 (getstring "\n 输入沉头数量? <1> : "))
(setq cb1 (getstring "\n 正面(c)or反面(b) ? <c> : "))
(setq ent_data (entget (car ent_sel)))
(if (= (cdr (assoc 0 ent_data)) "CIRCLE")
(progn
(setq ent_data (entget (car ent_sel)))
(setq rad (cdr (assoc 40 ent_data)))
))
(setq dad2 (* rad 2))
(float dad2)
(setq dad2 (rtos dad2 2 1))
(if (= dad2 "6")

(progn
(setq dad3 "3.4")
(setq pitch "3.3"))
)
(if (= dad2 "8.0")
(progn
(setq dad3 "4.5")
(setq pitch "4.4")
))
(if (= dad2 "9.5")
(progn
(setq dad3 "5.5")
(setq pitch "5.4")
))
(if (= dad2 "11")
(progn
(setq dad3 "6.6")
(setq pitch "6.5")
))
(if (= dad2 "14")
(progn (setq dad3 "9.0")
(setq pitch "8.6")
))
(if (= dad2 "17.5")
(progn (setq dad3 "11") (setq pitch "10.8")
))
(if (= dad2 "20")
(progn (setq dad3 "14")
(setq pitch "13")
))
(if (= dad2 "23")
(progn (setq dad3 "16")
(setq pitch "15")
))
(if (= dad2 "26")
(progn (setq dad3 "18")
(setq pitch "17.5")
))
(if (= dad2 "29")
(progn (setq dad3 "20")
(setq pitch "20")
))
(if (= dad2 "32")
(progn (setq dad3 "22")
(setq pitch "22")
)) (if (= cb1 "b")
(setq adep "(背面)")
)
(if (= qty1 "")
(setq atext1 (strcat "%%c" dad2))
(setq atext1 (strcat qty1 "-" "%%c"dad2)))
(setq atext2 (strcat atext1 "深" pitch))
(setq atext3 (strcat " %%c"dad3 "穿"))
(setq atext (strcat atext2 atext3))
(if (= cb1 "b")
(setq atext (strcat atext adep)))

(command "-dimstyle" "R" "螺纹")

(command "dim" "leader" pause pause pause atext "exit")
(command "-dimstyle" "R" "Standard")
)

李义东 · 发表于 2005-4-8 13:07:00

先画一个直径为6mm的圆即可以试

龙龙仔 · 发表于 2005-4-8 13:29:00

;;没有你说的程序怪现象
(defun C:ARCCT
(/ ENT_SEL ENT_DATA QTY1 CB1 RAD DAD2 ATEXT1 ATEXT2 ATEXT3)
(setq ENT_SEL (entsel "\请选取要标注的沉头圆"))
(if (= (setq QTY1 (getstring "\n 输入沉头数量? <1> : ")) "")
(setq QTY "1")
)
(if (= (setq CB1 (getstring "\n 反面(b)/<正面>: ")) "")
(setq CB1 "c")
(setq CB1 "b")
)
(setq ENT_DATA (entget (car ENT_SEL)))
(if (= (cdr (assoc 0 ENT_DATA)) "CIRCLE")
(progn
(setq ENT_DATA (entget (car ENT_SEL)))
(setq RAD (cdr (assoc 40 ENT_DATA)))
)
)
(setq DAD2 (* RAD 2))
(float DAD2)
(setq DAD2 (rtos DAD2 2 1))
(if (= DAD2 "6")
(progn
(setq DAD3 "3.4")
(setq PITCH "3.3")
)
)
(if (= DAD2 "8")
(progn
(setq DAD3 "4.5")
(setq PITCH "4.4")
)
)
(if (= DAD2 "9.5")
(progn
(setq DAD3 "5.5")
(setq PITCH "5.4")
)
)
(if (= DAD2 "11")
(progn
(setq DAD3 "6.6")
(setq PITCH "6.5")
)
)
(if (= DAD2 "14")
(progn (setq DAD3 "9.0")
(setq PITCH "8.6")
)
)
(if (= DAD2 "17.5")
(progn (setq DAD3 "11")
(setq PITCH "10.8")
)
)
(if (= DAD2 "20")
(progn (setq DAD3 "14")
(setq PITCH "13")
)
)
(if (= DAD2 "23")
(progn (setq DAD3 "16")
(setq PITCH "15")
)
)
(if (= DAD2 "26")
(progn (setq DAD3 "18")
(setq PITCH "17.5")
)
)
(if (= DAD2 "29")
(progn (setq DAD3 "20")
(setq PITCH "20")
)
)
(if (= DAD2 "32")
(progn (setq DAD3 "22")
(setq PITCH "22")
)
)
(if (= CB1 "b")
(setq ADEP "(背面)")
)
(if (= QTY1 "")
(setq ATEXT1 (strcat "%%c" DAD2))
(setq ATEXT1 (strcat QTY1 "-" "%%c" DAD2))
)
(setq ATEXT2 (strcat ATEXT1 "深" PITCH))
(setq ATEXT3 (strcat " %%c" DAD3 "穿"))
(setq ATEXT (strcat ATEXT2 ATEXT3))
(if (= CB1 "b")
(setq ATEXT (strcat ATEXT ADEP))
)
;;(command "-dimstyle" "R" "螺纹")
(command "dimdiameter" ENT_SEL "t" ATEXT PAUSE)
;;(command "dim" "leader" PAUSE PAUSE "" ATEXT "exit")
;;(command "-dimstyle" "R" "Standard")
(princ)
)

;;没有你说的程序怪现象
(defun C:ARCCT
             (/ ENT_SEL ENT_DATA QTY1 CB1 RAD DAD2 ATEXT1 ATEXT2 ATEXT3)
   (setq ENT_SEL (entsel "\请选取要标注的沉头圆"))
   (if (= (setq QTY1 (getstring "\n 输入沉头数量? <1> : ")) "")
       (setq QTY "1")
   )
   (if (= (setq CB1 (getstring "\n 反面(b)/<正面>: ")) "")
       (setq CB1 "c")
       (setq CB1 "b")
   )
   (setq ENT_DATA (entget (car ENT_SEL)))
   (if (= (cdr (assoc 0 ENT_DATA)) "CIRCLE")
       (progn
           (setq ENT_DATA (entget (car ENT_SEL)))
           (setq RAD (cdr (assoc 40 ENT_DATA)))
       )
   )
   (setq DAD2 (* RAD 2))
   (float DAD2)
   (setq DAD2 (rtos DAD2 2 1))
   (if (= DAD2 "6")
       (progn
           (setq DAD3 "3.4")
           (setq PITCH "3.3")
       )
   )
   (if (= DAD2 "8")
       (progn
           (setq DAD3 "4.5")
           (setq PITCH "4.4")
       )
   )
   (if (= DAD2 "9.5")
       (progn
           (setq DAD3 "5.5")
           (setq PITCH "5.4")
       )
   )
   (if (= DAD2 "11")
       (progn
           (setq DAD3 "6.6")
           (setq PITCH "6.5")
       )
   )
   (if (= DAD2 "14")
       (progn (setq DAD3 "9.0")
       (setq PITCH "8.6")
       )
   )
   (if (= DAD2 "17.5")
       (progn (setq DAD3 "11")
       (setq PITCH "10.8")
       )
   )
   (if (= DAD2 "20")
       (progn (setq DAD3 "14")
       (setq PITCH "13")
       )
   )
   (if (= DAD2 "23")
       (progn (setq DAD3 "16")
       (setq PITCH "15")
       )
   )
   (if (= DAD2 "26")
       (progn (setq DAD3 "18")
       (setq PITCH "17.5")
       )
   )
   (if (= DAD2 "29")
       (progn (setq DAD3 "20")
       (setq PITCH "20")
       )
   )
   (if (= DAD2 "32")
       (progn (setq DAD3 "22")
       (setq PITCH "22")
       )
   )
   (if (= CB1 "b")
       (setq ADEP "(背面)")
   )
   (if (= QTY1 "")
       (setq ATEXT1 (strcat "%%c" DAD2))
       (setq ATEXT1 (strcat QTY1 "-" "%%c" DAD2))
   )
   (setq ATEXT2 (strcat ATEXT1 "深" PITCH))
   (setq ATEXT3 (strcat " %%c" DAD3 "穿"))
   (setq ATEXT (strcat ATEXT2 ATEXT3))
   (if (= CB1 "b")
       (setq ATEXT (strcat ATEXT ADEP))
   )
   ;;(command "-dimstyle" "R" "螺纹")
   (command "dimdiameter" ENT_SEL "t" ATEXT PAUSE)
   ;;(command "dim" "leader" PAUSE PAUSE "" ATEXT "exit")
   ;;(command "-dimstyle" "R" "Standard")
   (princ)
)

李义东 · 发表于 2005-4-8 13:50:00

经大侠改过后,确实不再出现谢谢!

因为标注方式我要的是引线标注,大侠改过后为直径标注式请帮忙再改一下!

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