分享一个简单的CA简单的数字递增复制插件源码

云墨 2022年5月22日08:46:44工具插件评论3,043614字阅读2分2秒阅读模式
(DEFUN C:wfz()
        (setvar "cmdecho" 0)
        (setq wz (car (entsel "\n请选择递增复制的数字: ")))
        (setq data (entget wz))
        (setq layer (cdr (assoc 8 data)))
        (setq wz-data (atoi (cdr (assoc 1 data))))
        (setq wz-yangshi (cdr (assoc 7 data)))
        (setq wz-gaodu (cdr (assoc 40 data)))
        (setq wz-kuandu (cdr (assoc 41 data)))
        ;;;(setq wz-pt (getpoint "\n请点击数字插入位置: " ))
        (setq n 1 )
        (while
                (setq wz-pt (getpoint "\n请点击数字插入位置: " ))
                (setq wz-data (+ n wz-data))
                (setq wzneirong (itoa wz-data ))
                (entmake (append (list
                                                                                         (cons 0 "TEXT");;;类型
                                                                                         (cons 1 wzneirong );;;内容
                                                                                         (cons 8 layer) ;;;图层
                                                                                         (cons 7 wz-yangshi )
                                                                                         (cons 40 wz-gaodu);;;文字高度
                                                                                         (cons 41 wz-kuandu);;;宽度比例
                                                                                         (cons 71 0)
                                                                                         (cons 72 1)
                                                                                         (cons 73 1)
                                                                                         (cons 10 wz-pt)
                                                                                         (cons 11 wz-pt);;;文字插入点坐标
                                                                                 )
                                                 )
                )
  )
  (setvar "cmdecho" 1)
)

1. 如有链接无法下载、失效或广告,请联系QQ:3392178029 处理!
2. 本站的所有资源为购买、网络收集,或者用户投稿的资源,版权归原作者及网站所有!
3. 如若侵犯了您的权利,请及时联系站长删除!
4. 本站提供的资源,都不包含技术服务请大家谅解!
5. 此软件“仅限学习交流,不能用于商业用途”!
6. 如用于商业用途,请到官方购买正版软件,追究法律责任与“猿沐软件网”无关!
  • 老师个人微信
  • 微信扫一扫
  • weinxin
  • 设计课堂公众号
  • 微信扫一扫
  • weinxin
云墨
  • 本文由 发表于 2022年5月22日08:46:44
  • 转载请务必保留本文链接:https://www.yuanmoo.net/7685.html【猿沐软件网】
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: