[求助]怎么提取圆心坐标?

lescad2008

(defun c:ccord ()
  (setq ss (ssget))
  (setq n 0)
  (repeat (sslength ss)
    (setq en (ssname ss n ))
    (setq en_data (entget en))
    (setq cen_data (cdr (assoc 10 en_data)))
    (setq n (1+ n))
    )
  (sub_write_data)
  (prin1)
)

(defun sub_write_data ()
  (setq data_file (getfiled "写入坐标文件" "c:\\lsptools\\" "dat" 1))
  (setq ff (open data_file "w"))
  (write-line "对象名称     坐标尺寸" ff)
  (write-line "---------------------" ff)
  (write-line (itoa cen_data)    ff)
  (close ff)
  (prin1)
  )
(prompt "<<CCORD>>圆心提取程序")
(prin1)

 
  
   

lescad2008

大家帮忙看一下!

sailorcwx

1.既然你的程序是提取圆心坐标，那么在选择的时候就应该把非圆图元过滤掉，这样可以减少运算量，提高程序的效率
  所以建议把(setq ss (ssget))改成(setq ss (ssget '((0 . "CIRCLE"))))

2.你现在的程序最多也只是把最后一个圆的圆心坐标写入数据文件。如果你是想每得到一个圆心坐标就写一次的话，应该把write-line放进循环；这个时候文件的打开应该是"a"的方式，而不是"w"；如果你想提取所有圆心坐标再一次写入的话，应该在循环前创建一个变量来存放圆心坐标。待循环完毕再一次写入，这个时候文件的打开方式可以是"a"，也可以是"w".

3.你要知道cen_data得到的是什么类型的数据，是一个包含圆心XYZ数值的表，而write-line接受的是字符串.如果你不会转换或不想转换，可以考虑用princ写入

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 2 才可浏览，你当前发帖数只有 0

lescad2008

谢谢指点！明天我试一下！

yangda0611

看看版主的！呵呵1

wwwliuyu

学习了.

cwjheihei

如何输出(12345678.21 45678941.25 0.00)而不是(1.23456e+007  4.56789e+007 0.00)

ZZXXQQ

(princ (strcat "(" (rtos (car cen_data) 2 2) " " (rtos (cadr cen_data) 2 2) " " (rtos (last cen_data) 2 2) ")"))

注意：变量DIMZIN要事先设成零。不然有可能小数点后有可能无零。

cwjheihei

图中实际坐标(12345678.21 45678941.25 0.00)

"rtos"后变为

(1.23456e+007  4.56789e+007 0.00)既有效为６位了原为１０位的问题

能否输出字符为＂12345678.21＂为１０位有效数