字符拷贝+1示例

Lisphk · 发表于 2018-12-5 23:30:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt (/ p)
(or *lastchar* (setq *lastchar* (ascii "A")))
(while (setq p (getpoint "\nPick a point to place text: "))
(progn (entmakex (list '(0 . "TEXT")
'(100 . "AcDbEntity")
(cons 8 "text")
'(100 . "AcDbText")
(cons 10 p)
'(40 . 0.5)
(cons 1 (chr *lastchar*))
'(50 . 0.0)
(cons 7
(if (tblobjname "Style" "Romans")
"Romans"
"Standard"
)
)
'(72 . 1)
(cons 11 p)
'(73 . 2)
)
)
(setq *lastchar* (setq *lastchar* (1+ *lastchar*)))
(and (> *lastchar* 90) (setq *lastchar* 65))
)
)
(princ)
)

(defun c:tt (/ p) 
 (or *lastchar* (setq *lastchar* (ascii "A"))) 
 (while (setq p (getpoint "\nPick a point to place text: ")) 
   (progn (entmakex (list '(0 . "TEXT") 
                   '(100 . "AcDbEntity") 
                   (cons 8 "text") 
                   '(100 . "AcDbText") 
                   (cons 10 p) 
                   '(40 . 0.5) 
                   (cons 1 (chr *lastchar*)) 
                   '(50 . 0.0) 
                   (cons 7 
                         (if (tblobjname "Style" "Romans") 
                           "Romans" 
                           "Standard" 
                         ) 
                   ) 
                   '(72 . 1) 
                   (cons 11 p) 
                   '(73 . 2) 
             ) 
   ) 
   (setq *lastchar* (setq *lastchar* (1+ *lastchar*))) 
   (and (> *lastchar* 90) (setq *lastchar* 65)) 
   ) 
 ) 
 (princ) 
)

wofatfat19777 · 发表于 2021-3-6 12:55:17

下载看看！！！！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 字符拷贝+1示例

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。