对象对齐程序，求高手完善。

清风明月名字 · 发表于 2013-6-11 18:53:54

谢谢老师的工作，太好了！

hnlgy · 发表于 2013-6-11 21:14:59

本帖最后由 hnlgy 于 2013-6-11 21:19 编辑

ZZXXQQ 发表于 2013-6-11 16:44
;主函数改了下，加上了对话框。

ZZXXQQ版主您好，您新修改的主程序有点小瑕疵，运行时会出现错误: 参数类型错误: numberp: nil

  (setq ext_vd (cadr minext))
  (setq ext_vt (cadr maxext))
  (setq ext_vm (+ (/ (abs (- ext_vl ext_vr)) 2) ext_vl))

最后一句的变量引用笔误了， ext_vl  ext_vr两个变量没定义，改为ext_vd  ext_vt就好了。
(setq ext_vm (+ (/ (abs (- ext_vd ext_vt)) 2) ext_vd))

ZZXXQQ · 发表于 2013-6-11 22:57:45

谢谢提醒，5楼改了。

hnlgy · 发表于 2013-6-11 23:01:53

本帖最后由 hnlgy 于 2013-6-11 23:02 编辑

ZZXXQQ 发表于 2013-6-11 22:57
谢谢提醒，5楼改了。

请版主再改改......
不是 (setq ext_vm (+ (/ (abs (- ext_vt ext_vd)) 2) ext_vt))
而是 (setq ext_vm (+ (/ (abs (- ext_vd ext_vt)) 2) ext_vd))

ext_vd 是最小值 ext_vt是最大值

ZZXXQQ · 发表于 2013-6-11 23:23:37

hnlgy 发表于 2013-6-11 23:01
请版主再改改......
不是 (setq ext_vm (+ (/ (abs (- ext_vt ext_vd)) 2) ext_vt))
而是 (setq ext_ ...

只改了最后一个变量

xlmx-whj · 发表于 2013-6-12 23:20:58

楼主应该把做好的工具条和这个程序集合再放出来就完美了呵呵

hehoubin · 发表于 2013-6-15 19:30:50

支持。不过要能不单是对齐与点也要对齐与选择对象的最上.下.左.右.边的点或物体的中点等。

白皮猪 · 发表于 2014-4-19 16:03:44

ZZXXQQ 发表于 2013-6-11 16:44
;主函数改了下，加上了对话框。

请问，不知道为什么我在默认加载文件的条件下，新建一个电子文件，输入命令点击按钮，会出示"参数太少".请帮忙看看怎么解决吧

谢谢。

hooboxu · 发表于 2014-12-17 02:16:56

记号一下。。^_^

dingtiedt · 发表于 2015-5-25 14:49:12

有点象photoshop里的对齐。不过楼主没有把完整分享出来

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

[已解答] 对象对齐程序，求高手完善。