设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 程序执行会跑出“F2”键效果的怪现象
返回列表 发新帖
查看: 1288|回复: 3

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

[复制链接]
李义东
发表于 2005-4-8 13:03 | 显示全部楼层 |阅读模式
原程式如下，执行时会跑出“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 | 显示全部楼层
先画一个直径为6mm的圆即可以试
回复 支持 反对

使用道具 举报

龙龙仔
发表于 2005-4-8 13:29 | 显示全部楼层
  2. ;;没有你说的程序怪现象
  3. (defun C:ARCCT
  4.              (/ ENT_SEL ENT_DATA QTY1 CB1 RAD DAD2 ATEXT1 ATEXT2 ATEXT3)
  5.    (setq ENT_SEL (entsel "\请选取要标注的沉头圆"))
  6.    (if (= (setq QTY1 (getstring "\n 输入沉头数量? <1> : ")) "")
  7.        (setq QTY "1")
  8.    )
  9.    (if (= (setq CB1 (getstring "\n 反面(b)/<正面>: ")) "")
  10.        (setq CB1 "c")
  11.        (setq CB1 "b")
  12.    )
  13.    (setq ENT_DATA (entget (car ENT_SEL)))
  14.    (if (= (cdr (assoc 0 ENT_DATA)) "CIRCLE")
  15.        (progn
  16.            (setq ENT_DATA (entget (car ENT_SEL)))
  17.            (setq RAD (cdr (assoc 40 ENT_DATA)))
  18.        )
  19.    )
  20.    (setq DAD2 (* RAD 2))
  21.    (float DAD2)
  22.    (setq DAD2 (rtos DAD2 2 1))
  23.    (if (= DAD2 "6")
  24.        (progn
  25.            (setq DAD3 "3.4")
  26.            (setq PITCH "3.3")
  27.        )
  28.    )
  29.    (if (= DAD2 "8")
  30.        (progn
  31.            (setq DAD3 "4.5")
  32.            (setq PITCH "4.4")
  33.        )
  34.    )
  35.    (if (= DAD2 "9.5")
  36.        (progn
  37.            (setq DAD3 "5.5")
  38.            (setq PITCH "5.4")
  39.        )
  40.    )
  41.    (if (= DAD2 "11")
  42.        (progn
  43.            (setq DAD3 "6.6")
  44.            (setq PITCH "6.5")
  45.        )
  46.    )
  47.    (if (= DAD2 "14")
  48.        (progn (setq DAD3 "9.0")
  49.        (setq PITCH "8.6")
  50.        )
  51.    )
  52.    (if (= DAD2 "17.5")
  53.        (progn (setq DAD3 "11")
  54.        (setq PITCH "10.8")
  55.        )
  56.    )
  57.    (if (= DAD2 "20")
  58.        (progn (setq DAD3 "14")
  59.        (setq PITCH "13")
  60.        )
  61.    )
  62.    (if (= DAD2 "23")
  63.        (progn (setq DAD3 "16")
  64.        (setq PITCH "15")
  65.        )
  66.    )
  67.    (if (= DAD2 "26")
  68.        (progn (setq DAD3 "18")
  69.        (setq PITCH "17.5")
  70.        )
  71.    )
  72.    (if (= DAD2 "29")
  73.        (progn (setq DAD3 "20")
  74.        (setq PITCH "20")
  75.        )
  76.    )
  77.    (if (= DAD2 "32")
  78.        (progn (setq DAD3 "22")
  79.        (setq PITCH "22")
  80.        )
  81.    )
  82.    (if (= CB1 "b")
  83.        (setq ADEP "(背面)")
  84.    )
  85.    (if (= QTY1 "")
  86.        (setq ATEXT1 (strcat "%%c" DAD2))
  87.        (setq ATEXT1 (strcat QTY1 "-" "%%c" DAD2))
  88.    )
  89.    (setq ATEXT2 (strcat ATEXT1 "深" PITCH))
  90.    (setq ATEXT3 (strcat " %%c" DAD3 "穿"))
  91.    (setq ATEXT (strcat ATEXT2 ATEXT3))
  92.    (if (= CB1 "b")
  93.        (setq ATEXT (strcat ATEXT ADEP))
  94.    )
  95.    ;;(command "-dimstyle" "R" "螺纹")
  96.    (command "dimdiameter" ENT_SEL "t" ATEXT PAUSE)
  97.    ;;(command "dim" "leader" PAUSE PAUSE "" ATEXT "exit")
  98.    ;;(command "-dimstyle" "R" "Standard")
  99.    (princ)
  100. )
回复 支持 反对

使用道具 举报

李义东
 楼主| 发表于 2005-4-8 13:50 | 显示全部楼层
经大侠改过后,确实不再出现         谢谢!


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

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-17 17:28 , Processed in 0.158390 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表