[LISP程序]：求形心的程序

158466939 · 发表于 2008-7-6 01:58:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

不知道是哪里出了问题，单个求形心不会出错，选一个集就找出来的形心结果不对，请高手指点下，在此先谢谢了~!(我是初学者，最近开始自己写点小程序，但是刚写的两个程序发现和这个一样，被选择的对象与窗口成一定比例显示时候所得结果就又问题，真郁闷。。。。。。。)[PHP](defun c:xx (/ ss en pt)
  (DC-begin)
  (command ".Layer" "Make" "point" "")
  (prompt "\n选取要标注形心的柱子<退出>: ")
  (if (setq ss (ssget (list
'(0 . "LWPOLYLINE")
      ) ;_ 结束list
         ) ;_ 结束ssget
   ) ;_ 结束setq
(progn
   (setq si 0)
   (while (setq en (ssname ss si))
(setq si (1+ si))
(setq pt (dc-Centroid en))
(command ".point" pt)
   ) ;_ 结束while
) ;_ 结束progn
  ) ;_ 结束if
  (DC-end)
  (princ "\n形心标记完毕 !")
  (princ)
) ;_ 结束defun[/PHP]

zxq0220 · 发表于 2008-7-6 22:06:51

是不是定义的变量与子程序中的变量冲突了？

158466939 · 发表于 2008-7-8 23:00:38

这个也会冲突？冲突了还会有结果出来？每个形心都偏一点，又没有规律。。。。。。。。。我先按你的意见检查下，先谢谢了

wygtong · 发表于 2008-7-10 09:05:40

我使用了，还行

wygtong · 发表于 2008-7-10 09:05:40

我使用了，还行

yn100200 · 发表于 2008-7-11 11:12:04

用效果大概是这样，可以沿x 或y轴斜切变形
http://p15.freep.cn/p.aspx?u=v20_p15_p_0802021059387401_0.jpg

图片上传总不成功，只好来个链接了，抱歉。

下面是块变形程序：sheer.vlx
命令行为：sheer

这个程序基本可以实现各种变形要求，比如有了一个矩形图案

158466939 · 发表于 2008-7-11 15:39:11

呵,原来是我没有把掚捕捉关掉，难怪结果有问题的，虽然没人帮到我，还是谢谢大家了

flowerson · 发表于 2009-11-19 18:18:40

楼主少了 (DC-begin) (DC-end) 等子函数！

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：求形心的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子