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

叶文军 · 发表于 2004-8-26 10:25:00

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

梁旭武 · 发表于 2004-8-26 17:58:00

这样可以吗
(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点区域:"))
)
)

梁旭武 · 发表于 2004-8-26 18:16:00

不好意思刚才那个错了
(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 · 发表于 2004-8-26 23:13:00

改为下面更妥：
(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点区域:"))
   )
   )
   )
)