论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好! 欢迎 登录注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
  • 1830阅读
  • 1回复

新人新手求助:提取点号、坐标圈选改为点选 [复制链接]

上一主题 下一主题
离线phyccylb
 

发帖
2
土币
33
威望
2
原创币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2014-12-19
这是一个从网上下载的提取点号和坐标的程序,现在是圈点坐标,如何改为点选坐标
新手对此不懂请大家 帮忙指点谢谢了
(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)

离线xdj86

发帖
809
土币
4067
威望
3481
原创币
0
只看该作者 1楼 发表于: 2014-12-20
请看autolisp帮助文档,很简单,自己动手丰衣足食
兼职CAD二次开发,有需要请联系。
快速回复
限100 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
 
上一个 下一个

      https://beian.mps.gov.cn/ 粤公网安备 44010602012919号 广州半山岩土网络科技有限公司 粤ICP备2024274469号

      工业和信息化部备案管理系统网站