[LISP]一个点取单文本写序号的程序

stulsx

;将其加载导 Acad.lsp中 xxh 命令启动 (defun c:xxh()
(setq old_style (getvar "textstyle"))
(setq new_style "standard")
(setq xh_st (getint "\n从几开始<1>:"))
(if (= xh_st nil) (setq xh_st 1)())
(setq xx "y")
(while (= xx "y")
(setq txt_sel (entget (car (entsel"点取文本:"))))
(while (= txt_sel nil) (setq txt_sel (entget (car (entsel"点取文本:")))))
(setq txt_wz (assoc 10 txt_sel))
(setq txt_h (assoc 40 txt_sel))
(setq txt_kd (assoc 41 txt_sel))
(setq wz (cdr txt_wz))
(setq wz_x (car wz ) wz_y (cadr wz) wz_z (cddr wz))
(setq h (cdr txt_h))
(setq kd (cdr txt_kd))
(setq xh_dx (* h 1.5))
(setq xh_wz (mapcar '- wz (list xh_dx 0 0)))
(command "text" "s" "standard" xh_wz (* h 0.8) 0 (strcat (rtos (fix xh_st) 2 0) ".") )
(setq xh_st (1+ xh_st))
)
(setvar "textstyle" old_style)
)

yxp

不怎么样.