求做一个标注平行线宽度的插件 悬赏50明经币
本帖最后由 呼呼se 于 2022-9-14 09:30 编辑i0=] 修改相同内容的标注
(defun c:tt (/ *error* cmd dist en en0 ent ent0 new-str ss ssn str str0)
(defun *error* ( msg )
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(progn (princ (strcat "\n错误：" msg)) (vl-cmdf "_undo" "e") (vl-cmdf "_undo" 1) (setvar "CMDECHO" cmd))
)
(princ)
)
(vl-cmdf "_undo" "be")
(setq cmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(while (setq en (car (entsel "\n选择标注样板："))
)
(setq new-str (getstring "\n输入新值：")
ent (entget en)
str0 (cdr (assoc 1 ent))
dist (cdr (assoc 42 ent))
)
(if str0 (setq str str0) (setq str (rtos dist 2 3)))
(setq ss (ssget (list '(0 . "DIMENSION") '(-4 . "<xor") (cons 1 str) '(-4 . "<and") (cons 1 "") (cons 42 (atof str)) '(-4 . "and>") '(-4 . "xor>")))
ssn (sslength ss)
)
(repeat ssn
(setq en0 (ssname ss (setq ssn (1- ssn)))
ent0 (entget en0)
)
(entmod (subst (cons 1 new-str) (assoc 1 ent0) ent0))
(entupd en0)
)
)
(vl-cmdf "_undo" "e")
(setvar "CMDECHO" cmd)
(princ)
)
ssyfeng 发表于 2018-11-26 10:59
你下载这个文件试试：
可以了大哥请问能在有明经币那个里面发个言嘛我转给你明经币！！！ ssyfeng 发表于 2018-11-26 08:49
什么问题，可以截图。把出问题的cad文件一起上传注明一下。
点评分就可以给了。
我加载之后就提示字符缺陷 改标注内容？还是。。。。。 ssyfeng 发表于 2018-11-10 18:23
改标注内容？还是。。。。。
改标注内容原图不变
ssyfeng 发表于 2018-11-10 18:23
改标注内容？还是。。。。。
请问你会吗？ ssyfeng 发表于 2018-11-10 18:23
改标注内容？还是。。。。。
请问你会吗 ssyfeng 发表于 2018-11-25 18:43
修改相同内容的标注
感谢大哥相助 呼呼se 发表于 2018-11-26 08:29
感谢大哥相助
我怎么把明经币给你
呼呼se 发表于 2018-11-26 08:29
感谢大哥相助
我怎么把明经币给你
ssyfeng 发表于 2018-11-25 18:43
修改相同内容的标注
大哥提示字符有缺陷。
页:
[1]
2