求助自动编号程序!!!!

叶文军

比如有三个地块,能不能通过封闭域程序进行面积量算,然后在面积前加上s1=这样的前缀,比如s1=123,s2=125,s3=455等.至于编号的顺序可以按用户点击的顺序进行.谢谢了

梁旭武

这样可以吗
(defun c:hhh()
(princ"\n*********区域面积计算***********")
(setq i 0)
(setq pt(getpoint"\n坐标册放在："))
(while pt
(setq x(car pt))
(setq x(- x 5))
(setq y(cadr pt))
(setq pt1 (list x y))
(setq i(1+ i))
(command "boundary" a "")
(setq b(entlast))
(command "area" "O" b)
(setq c (getvar "AREA"))
(setq jj(rtos c))
(setq jj(strcat "s=" jj ))
(setq j(rtos i))
(setq j(substr j 1 (- (strlen j ) 5 )))
(command "text" pt1 3 0 j)
(command "text" pt 3 0 jj )
(command "ERASE" b "")
(setq pt(getpoint"\n点区域:"))
) )

梁旭武

不好意思刚才那个错了
(defun c:hhh()
(princ"\n*********区域面积计算***********")
(setq i 0)
(setq pt(getpoint"\n点区域:"))
(while pt
(setq x(car pt))
(setq x(- x 5))
(setq y(cadr pt))
(setq pt1 (list x y))
(setq i(1+ i))
(command "boundary" pt "")
(setq b(entlast))
(if b
(progn
(command "area" "O" b)
(setq c (getvar "AREA"))
(setq jj(rtos c))
(setq jj(strcat "s=" jj ))
(setq j(rtos i))
(setq j(substr j 1 (- (strlen j ) 5 )))
(command "text" pt1 3 0 j)
(command "text" pt 3 0 jj )
(command "ERASE" b "")
(setq pt(getpoint"\n点区域:"))
)
)
)
)

xyp1964

改为下面更妥： (princ "\n*********区域面积计算***********")
(defun c:hhh (/ i pt x y pt1 b c jj)
(setq i 0)
(setq pt (getpoint "\n点区域:"))
(while pt
(setq x (car pt))
(setq x (- x 5))
(setq y (cadr pt))
(setq pt1 (list x y))
(setq i (1+ i))
(command "boundary" pt "")
(setq b (entlast))
(if b
(progn
(command "area" "O" b)
(setq c (getvar "AREA"))
(setq jj (rtos c))
(setq jj (strcat "S" (rtos i 2 0) "=" jj))
;(setq j (rtos i))
;(setq j (substr j 1 (- (strlen j ) 5 )))
;(command "text" pt1 3 0 j)
(command "text" pt 3 0 jj)
(command "ERASE" b "")
(setq pt (getpoint "\n点区域:"))
)
)
)
)

ZZXXQQ

i是整数，可以用函数itoa代替rtos。

51082481

好东东

huiyin

不错


!