谁能实现这样功能？(各位高手难吗？)

diablo_xie · 发表于 2003-9-22 19:55:00

点击一个闭合区域，能自动列出该区域的各角点座标（最好是表格）并能对该区域自动编号1、2、3、4。............

htvc4zqbywf.jpg

meflying · 发表于 2003-9-22 20:18:00

这个不难，起点需要指定吗？

meflying · 发表于 2003-9-22 20:47:00

获取点程序：

copy


(defun c:getcorner( / pt ss ent ent_lst pt_corners)
  (setq pt (getpoint "点击区域:"))
  (command "_.boundary" "a" "o" "r" "" pt "")
  (command "_.explode" (entlast))
  (setq ss (ssget "_p" '((0 . "line"))))
  (if (not ss)
    (progn (princ "选择区域错误") (exit))
  )
  (command "pedit" (ssname ss 0) "y" "j" ss "" "")
  (setq ent (entlast))
  (setq ent_lst (entget ent))
  (while (setq pt (assoc 10 (cdr ent_lst)))
    (setq pt_corners (append pt_corners (list(cdr  pt))))
    (setq ent_lst (member pt ent_lst))
  )
  pt_corners
)

diablo_xie · 发表于 2003-9-22 21:01:00

兄弟，加载后要输入什么命令？怎么不能用了

meflying · 发表于 2003-9-22 21:36:00

看到c:打头的函数就是命令了
需要先加载(vl-load-com)
以下是程序文件

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:55immjgfran.lsp
下载次数:0 文件大小:2.74 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

zjfkmr008 · 发表于 2003-9-22 23:06:00

请问这样的一般是用在什么样的````画图上的啊
一般那2D有用吗``

diablo_xie · 发表于 2003-9-23 08:59:00

meflying兄谢谢你辛苦了提个见意：编号能否从1开始，还有在图形能否自动插入编号（能控制图形的编号大小）

meflying · 发表于 2003-9-23 11:45:00

看样子你是不会程序了，关于在图形中插入编号其实是一件很难的事情，因为至今我还没有找到一种比较好的办法来确定编号相对角点的合适位置，就是无法判断插入点的位置是否合适，
编号从1开始，你只要找到
(Maketext pttext (rtos i) (* scale 3.5) 0)
改为
(Maketext pttext (rtos (1+ i)) (* scale 3.5) 0)就可以了

谁能实现这样功能？(各位高手难吗？)

发表回复

精选推荐