设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 标注后面加公差的LSP
返回列表 发新帖
查看: 1669|回复: 4

标注后面加公差的LSP

[复制链接]
黄河之水
发表于 2006-12-24 09:43:46 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
在同一图纸公差不同,如(+0.15,+0.06)  (+0.15 ,--0.1)等等,求高手在标注后加公差的程序,运行后选择标注,直接输入上下偏差内容就好了,
有位高手编了个标注后加直径和半径的程序,共高人参考,我在线等待.
//加直径符号
(DEFUN C:PHI (/ PRE SS I ENT RR)
(SETQ PRE (IF (= (STRCASE (GETSTRING "\n加直径符号吗？") nil) "N") "R" "%%C"))
(PRINC "\n选择尺寸 : ")
(IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
  (SETQ I 0)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
   (SETQ RR (STRCAT PRE (CDR (ASSOC 1 ENT))))
   (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))
   (ENTMOD ENT)
  )
))
(PRINC)
)
后加, 标注, 公差

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

kohi
发表于 2006-12-26 06:50:08 | 显示全部楼层
[php]
(defun c:test ()
  (setq up 0.15 lower 0.06);也可通过对话框或命令行随机输入
  (setq dd (ssget '((0 . "dimension"))))
  (setq n 0)
  (while (< n (sslength dd))
    (setq obj (vlax-ename->vla-object (ssname dd n)))
    (vla-put-toleranceupperlimit obj up)
    (vla-put-tolerancelowerlimit obj lower)
    (vla-put-tolerancedisplay obj 2)  
    (vla-update obj)
    (setq n (1+ n))
  )
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11300个

财富等级: 富甲天下
发表于 2006-12-26 17:53:00 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

  3. (DEFUN C:TOLE ()
  4. (DEFUN RDATA () (SETQ PU (GET_TILE "pu") PD (GET_TILE "pd")))
  5. (SETQ FF (OPEN "INPUT.DCL" "w"))
  6. (WRITE-LINE "input : dialog {" FF)
  7. (WRITE-LINE " label="公差输入";" FF)
  8. (WRITE-LINE " : edit_box { key="pu"; label="上公差";value="+0.01";}" FF)
  9. (WRITE-LINE " : edit_box { key="pd"; label="下公差";value="-0.01";}" FF)
  10. (WRITE-LINE " ok_cancel;" FF)
  11. (WRITE-LINE "}" FF)
  12. (CLOSE FF)
  13. (IF (> (SETQ DCL_ID (LOAD_DIALOG "INPUT")) 0) (PROGN
  14.   (IF (NEW_DIALOG "input" DCL_ID) (PROGN
  15.    (action_tile "accept"  "(RDATA) (DONE_DIALOG 1)")
  16.    (action_tile "cancel" "(DONE_DIALOG 0)")
  17.    (SETQ RE (START_DIALOG))
  18.   ) (ALERT "Unable to display dialog box!"))
  19.   (UNLOAD_DIALOG DCL_ID)
  20. ) (ALERT "Unable to load dialog box!"))
  21. (IF (= RE 1) (PROGN
  22.   (PRINC "\n选择尺寸 : ")
  23.   (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
  24.    (SETQ I 0)
  25.    (IF (AND (= (SUBSTR PU 1 1) "+") (= (SUBSTR PD 1 1) "-"))
  26.     (SETQ PRE (STRCAT "%%p" (SUBSTR PU 2)))
  27.     (SETQ PRE (STRCAT "\\S" PU "^" PD ";"))
  28.    )
  29.    (REPEAT (SSLENGTH SS)
  30.     (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
  31.     (SETQ RR (CDR (ASSOC 1 ENT)))
  32.     (SETQ RR (STRCAT (IF (= RR "") "<>" RR) PRE))
  33.     (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))
  34.     (ENTMOD ENT)
  35.    )
  36.   ))
  37. ))
  38. (PRINC)
  39. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
发表于 2006-12-26 20:25:12 | 显示全部楼层
;;;大写看了眼睛疼，格式化一下

  3.   [FONT=courier new]
  4. (defun c:tole ()
  5.   (defun rdata ()
  6.     (setq pu (get_tile "pu")
  7.           pd (get_tile "pd")
  8.     )
  9.   )
  10.   (setq ff (open "INPUT.DCL" "w"))
  11.   (write-line "input : dialog {" ff)
  12.   (write-line " label="公差输入";" ff)
  13.   (write-line " : edit_box { key="pu"; label="上公差";value="+0.01";}"
  14.               ff
  15.   )
  16.   (write-line " : edit_box { key="pd"; label="下公差";value="-0.01";}"
  17.               ff
  18.   )
  19.   (write-line " ok_cancel;" ff)
  20.   (write-line "}" ff)
  21.   (close ff)
  22.   (if (> (setq dcl_id (load_dialog "INPUT"))
  23.          0
  24.       )
  25.     (progn
  26.       (if (new_dialog "input" dcl_id)
  27.         (progn
  28.           (action_tile "accept" "(RDATA) (DONE_DIALOG 1)")
  29.           (action_tile "cancel" "(DONE_DIALOG 0)")
  30.           (setq re (start_dialog))
  31.         )
  32.         (alert "Unable to display dialog box!")
  33.       )
  34.       (unload_dialog dcl_id)
  35.     )
  36.     (alert "Unable to load dialog box!")
  37.   )
  38.   (if (= re 1)
  39.     (progn
  40.       (princ "\n选择尺寸 : ")
  41.       (if (setq ss (ssget '((0 . "DIMENSION"))))
  42.         (progn
  43.           (setq i 0)
  44.           (if (and
  45.                 (= (substr pu 1 1) "+")
  46.                 (= (substr pd 1 1) "-")
  47.               )
  48.             (setq pre (strcat "%%p" (substr pu 2)))
  49.             (setq pre (strcat "\\S" pu "^" pd ";"))
  50.           )
  51.           (repeat (sslength ss)
  52.             (setq ent (entget (ssname ss i))
  53.                   i (1+ i)
  54.             )
  55.             (setq rr (cdr (assoc 1 ent)))
  56.             (setq rr (strcat (if (= rr "")
  57.                                "<>"
  58.                                rr
  59.                              ) pre
  60.                      )
  61.             )
  62.             (setq ent (subst
  63.                         (cons 1 rr)
  64.                         (assoc 1 ent)
  65.                         ent
  66.                       )
  67.             )
  68.             (entmod ent)
  69.           )
  70.         )
  71.       )
  72.     )
  73.   )
  74.   (princ)
  75. )

  77.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

黄河之水
 楼主| 发表于 2006-12-31 09:24:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
很感谢以上三位相助的kohi 会员/ zxq0220 会员 /taner会员,我下载了,回家试试看,                    2006年底


************************************************************
************************************************************
之后我试了,用把一个程序我改为用命令随机输入,缺点是:比如正负0.2,,结果是上面是+0.2下面是_0.2,不合标注要求,正确是正负号共用一个0.2就好,如果能提示(公差值一样请输C),输C后直接输入0.2更好
希望能修改一下
********************************
第二个可运行,但很错误,            2007年留言
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-26 16:48 , Processed in 0.182750 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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