iCAx开思网

标题: 求高手帮忙做个LISP程序 [打印本页]

作者: dxf718 时间: 2006-10-22 08:11
标题: 求高手帮忙做个LISP程序
求高手帮忙做个LISP程序，能在编辑文字后面加%%D

作者: xubojian 时间: 2006-10-22 13:03
尺寸加%%D
(defun c:dK()
(command "dim1" "n" "<>%%d")
princ
)

作者: xubojian 时间: 2006-10-22 13:04
文本文字加
(defun c:jdd()
(setvar "cmdecho" 0)
(setq txt (entsel))
(setq txt_data (entget (car txt)))
(setq old_txt_list (assoc 1 txt_data))
(setq old_tt(cdr old_txt_list))
(setq new_tt (strcat old_tt "%%d"))
(setq new_txt_list (cons 1 new_tt))
(setq txt_data (subst new_txt_list old_txt_list txt_data))
(entmod txt_data)
(prin1)
)

欢迎光临 iCAx开思网 (https://www.icax.org/)