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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [原创]：本人自己编的件号连续增量标注源码 ...
返回列表 发新帖
查看: 1821|回复: 13

[原创]：本人自己编的件号连续增量标注源码

[复制链接]
zzzcpu
发表于 2006-10-2 20:39:39 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
输入起始数，即可在此基础上增量标注，点右键停止

  3. (defun  c:part(/ r1 h1 oce p1 p2 p3 txt a1)
  4.   (setq        r1 3.5
  5.         h1 4
  6.   )
  7.   (graphscr)
  8.   (setq oce (getvar "cmdecho"))
  9.   (setq os (getvar "osmode"))


  12.   
  13.   (setq
  14.     p1        (getpoint "\nFrom point: ")
  15.     p2        (getpoint p1 "\nBubber center point: ")
  16.     a1        (angle p2 p1)
  17.     p3        (polar p2 a1 r1)
  18.     txt        (getstring "\nPart number: ")
  19.   )
  20.   (setvar "osmode" 0)
  21.   (setvar "cmdecho" 0)
  22.   (command ".donut" 0 1 p1 "")
  23.   (command ".LINE" p1 p3 "")
  24.   (command ".CIRCLE" p2 r1)
  25.   (command ".TEXT" "M" p2 h1 0 txt)
  26.   (setvar "osmode" os)
  27.   (while (and (/= p1 nil) (/= p2 nil))
  28.     (setq os (getvar "osmode"))

  30.     (setq
  31.       p1 (getpoint "\nFrom point: ")
  32.       p2 (getpoint p1 "\nBubber center point: ")
  33.       a1 (angle p2 p1)
  34.       p3 (polar p2 a1 r1)
  35.     )
  36.     (setvar "osmode" 0)
  37.     (command ".donut" 0 1 p1 "")
  38.     (command ".LINE" p1 p3 "")
  39.     (command ".CIRCLE" p2 r1)
  40.     (command ".TEXT" "M" p2 h1 0 txt)
  41.     (setvar "osmode" os)
  42.     (setq eobj (entget (entlast)))
  43.     (setq txt (cdr (assoc '1 eobj)))
  44.     (setq num1 (atoi txt))
  45.     (setq num1 (1+ num1))
  46.     (cond ((and (< num1 10) (= (strlen txt) 2))
  47.            (setq num1 (strcat "0" (itoa num1)))
  48.           )
  49.           ((and (< num1 100) (= (strlen txt) 3))
  50.            (setq num1 (strcat "00" (itoa num1)))
  51.           )
  52.     )
  53.     (if        (NUMBERP num1)
  54.       (setq txt (itoa num1))
  55.       (setq txt num1)
  56.     )
  57.     (setq eobj (subst (cons 1 txt) (assoc '1 eobj) eobj))
  58.     (entmod eobj)
  59.   )

  61.   (setvar "osmode" os)
  62.   (setvar "cmdecho" oce)
  63.   (princ)
  64. )
setq, num1, command

相关帖子

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

使用道具 举报

haibinpro
发表于 2006-10-2 21:20:42 | 显示全部楼层
没有加入序号递增啊 。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

liminzheng
发表于 2006-10-2 23:40:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
能否设置一个参数控制是否序号递增？

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

使用道具 举报

zzzcpu
 楼主| 发表于 2006-10-4 00:01:53 | 显示全部楼层
本人第一次发文，就得到版主奖励
谢谢eachy的鼓励
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fwell
发表于 2006-10-6 19:10:43 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我使用的程序


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

使用道具 举报

wuzz
发表于 2006-10-7 09:29:27 | 显示全部楼层
楼上的效果比较理想，关键是要能实现任意字符组合的递增，而且要可以控制步长。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

phoenixdjq
发表于 2006-10-7 12:42:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我有一个程序，只能够更改末尾是数字的。由于是自己用的，程序就没有整理
大家可以用一下。
gf是输入步长的命令，sa，saa是命令，初始步长是1。
如果有问题联系我qq：53124174
注明lisp
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zzt21963
发表于 2006-10-7 16:07:55 | 显示全部楼层
个人感觉要是有记忆功能就好了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fwell
发表于 2006-10-7 22:16:28 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 zzt21963 发布
[B]个人感觉要是有记忆功能就好了 [/B]


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

使用道具 举报

phoenixdjq
发表于 2006-10-8 12:24:09 | 显示全部楼层
你的记忆是什么意思呀
我的这个程序，如果你没有输入步长的话，初始步长就为1
如果你更改了步长，在不关闭cad的情况下，就是你所要的步长
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

art_ccd
发表于 2006-10-8 21:51:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我是初学者，参考参考谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lrd1861

已领礼包: 2124个

财富等级: 金玉满堂
发表于 2009-8-15 12:22:10 | 显示全部楼层
感谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

现场服务
发表于 2013-11-15 11:40:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼主，我只想用你的这个程序
可否直接做成LISP文件让我加载啊！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

乘风寻龙

已领礼包: 11个

财富等级: 恭喜发财
发表于 2020-3-11 11:16:55 | 显示全部楼层
不用线段直接点击编号，有办法解决？望回复！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-9-23 08:24 , Processed in 0.379118 second(s), 57 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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