- 积分
- 25069
- 明经币
- 个
- 注册时间
- 2002-7-9
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2024-3-29 17:01:36
|
显示全部楼层
本帖最后由 crtrccrt 于 2024-3-31 08:33 编辑
;;;entmakex-MTEXT防卡死;
;;;附件是完整版;
;;;贴出代码只生成MTeXT,不删除刚生成的MTEXT,稍有点LSP基础的高手,简单修改即可,没有LSP基础的用币吧;
;;;不喜勿喷,不喜勿喷,不喜勿喷,;
(defun c:fks ( / flt mtaa mtbb saa sbb tp )
(progn
(setq flt (list (cons 0 "mtext")))
(setq mtaa (ssget "x" flt))
(setq tp
(entmakex
(list
(cons 0 (strcat (strcase "MTEXT")))
(cons 100 (strcat (strcase "A")(strcase "c" t)(strcase "D")(strcase "b" t)(strcase "E")(strcase "ntity" t)))
(cons 100 (strcat (strcase "A")(strcase "c" t)(strcase "D")(strcase "b" t)(strcase "MT")(strcase "ext" t)))
(cons 10 (list 0 0 0))
(cons 40 400.0)
(cons 41 800.0)
(cons 1 "123ABC456")
(cons 50 0.0)
)
)
)
(setq mtbb (ssget "x" flt))
(princ)
);;;progn;
)
(c:fks)
(princ)
;======================================
;;;纯lisp代码生成的MTEXT文字,然后代码删除前面写的文字,无法解决;;;
;;;用命令法不知能否解决,我用绿色版2024,不用先生成mtext也不会卡;
(vl-cmdf "-mtext" "0,0" "400,800" "123abc456" "")(setq tp (entlast))
;;;配合上面代码使用;;;
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
x
|