(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. 如用于商业用途,请到官方购买正版软件,追究法律责任与“猿沐软件网”无关!
2. 本站的所有资源为购买、网络收集,或者用户投稿的资源,版权归原作者及网站所有!
3. 如若侵犯了您的权利,请及时联系站长删除!
4. 本站提供的资源,都不包含技术服务请大家谅解!
5. 此软件“仅限学习交流,不能用于商业用途”!
6. 如用于商业用途,请到官方购买正版软件,追究法律责任与“猿沐软件网”无关!
- 老师个人微信
- 微信扫一扫
-
- 设计课堂公众号
- 微信扫一扫
-
评论