沐风论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3179|回复: 1
打印 上一主题 下一主题

[问题求助] 新人新手求助:提取点号、坐标圈选改为点选

[复制链接]
跳转到指定楼层
楼主
发表于 2014-12-20 10:36:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这是一个从网上下载的提取点号和坐标的程序,现在是圈点坐标,如何改为点选坐标
新手对此不懂请大家 帮忙指点谢谢了
(defun c:plzbsc()
   (princ "\n选择所需输出的点(point):")
   (setq ss (ssget ));;选取坐标点
   (setq n (sslength ss ));计算坐标点数量
        (setq ff (open (getfiled "文件保存为" "C:/" "txt" 1) "w"));保存路径
   (setq i 0)
   (repeat n
  (setq spt (ssname ss i ))
    (setq ept (entget spt))
    (if (= (cdr (assoc 0 ept)) "POINT")
     (progn
                                    (setq lxy (cdr (assoc 10  ept)))
       (setq sx (rtos (nth 1 lxy)));将坐标值实数转换成字符
       (setq sy (rtos (nth 0 lxy)))

                                        (setq i1 (+ i 1));计算点序号
                                        (setq sn (rtos i1 2 0));将序号实数转换成字符
       (setq sxy (strcat sn","  sy ","  sx  ))
       (write-line sxy ff)
    )
    )
    (setq i (+ i 1))
   );repeat
)
(prompt "*只适合point点 << 命令:plzbsc >> *输出格式(点号,, Y,X)**")
(prin1)

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖 支持支持 反对反对
回复

使用道具 举报

沙发
发表于 2014-12-27 17:18:22 | 只看该作者
不知所云,不知何用
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|沐风论坛 ( 沪ICP备09092249号  

GMT+8, 2024-11-13 23:01 , Processed in 0.416604 second(s), 21 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表