清风明月名字 发表于 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 http://bbs.mjtd.com/static/image/common/back.gif
;主函数改了下，加上了对话框。

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_vlext_vr两个变量没定义   ，改为ext_vdext_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 http://bbs.mjtd.com/static/image/common/back.gif
谢谢提醒，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 static/image/common/back.gif
请版主再改改......
不是 (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 static/image/common/back.gif
;主函数改了下，加上了对话框。

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

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

记号一下。。^_^

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

有点象photoshop里的对齐。不过楼主没有把完整分享出来
页: 1 [2] 3
查看完整版本: 对象对齐程序，求高手完善。