[原创]：一个画圆、矩形的中心线程序

hyx_lyn · 发表于 2005-8-30 10:14:16

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

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

×

这是我自己在工作中编写的一个程序，比较适合我现在的工作，但想要作为通用的程序可能还需要一些改进，同时程序算法中也存在一些错误，希望各位能给我提提意见及建议，谢谢

使用方法:下载后加载程序，在命令行输入zx，然后选择圆、由RECTANG命令完成的图形,即可完成。

在选择时可以进行框选。

xyp1964 · 发表于 2005-8-30 20:10:02

楼上的适应性不强，试试下面的：

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
;;;中心线（任意封闭域）
(defun c:zxx (/ pt)
(cmdla0)
(setq ll (udist 7 "" "\n中心线长" ll nil))
(while (setq pt (getpoint "\n选择区域内一点<退出> : "))
(command "-boundary" "a" "o" "r" "" pt "")
(setq pt (vlax-safearray->list
(vlax-variant-value
(vla-get-centroid (vlax-ename->vla-object (entlast)))
)
)
)
(entdel (entlast))
(setvar "osmode" 0)
(mkla "中心线" 1) ;建层，取消此句可以随层
(XYP_SZX pt ll) ;在点pt处画ll长十字线
(redraw)
)
(cmdla1)
)
(pxyp "ZXX (中心线)")
[/FONT]

[FONT=courier new](load "xyp_lib") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 
1.在acad.lsp中增加(load"xyp_lib") 
2.在每个程序内增加(load"xyp_lib") 
3.在command下，输入(load"xyp_lib") 
4.在菜单.mnl中增加(load"xyp_lib") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; 
 
;;;中心线（任意封闭域） 
(defun c:zxx (/ pt) 
  (cmdla0) 
  (setq ll (udist 7 "" "\n中心线长" ll nil)) 
  (while (setq pt (getpoint "\n选择区域内一点<退出> : ")) 
    (command "-boundary" "a" "o" "r" "" pt "") 
    (setq pt (vlax-safearray->list 
               (vlax-variant-value 
                 (vla-get-centroid (vlax-ename->vla-object (entlast))) 
               ) 
             ) 
    ) 
    (entdel (entlast)) 
    (setvar "osmode" 0) 
    (mkla "中心线" 1)                        ;建层，取消此句可以随层 
    (XYP_SZX pt ll)                        ;在点pt处画ll长十字线 
    (redraw) 
  ) 
  (cmdla1) 
) 
(pxyp "ZXX  (中心线)") 
[/FONT]

PFD8667 · 发表于 2005-8-30 20:37:31

xyp1964你是个热心人 ,但我测试过你多个程序总有问题,不知为什么?我不知你是否自己测试过.

xyp1964 · 发表于 2005-8-30 21:39:43

不好意思，偶从不贴未通过测试的程序！（2004测试）
“多个程序总有问题”，说说都是什么问题！

狂刀 · 发表于 2005-8-31 00:53:52

大概是没有加载你的通用函数库吧？！哈哈

网络水手 · 发表于 2005-8-31 00:58:17

二楼的思路不错!

hyx_lyn · 发表于 2005-8-31 08:40:00

谢谢二楼的建议

从你的程序当中我发现我的一个问题就是结构化设计不强还需要努力

我会试试你的程序的

yunsi312 · 发表于 2014-5-15 09:30:17

顶。。。。。。。。。。。。。。。。。。。。。。。

猪要上树 · 发表于 2015-1-16 20:58:50

喜欢这种好东西下来试试

显示全部楼层 · 发表于 2015-10-26 08:56:35

提示: 作者被禁止或删除内容自动屏蔽

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

并迅速的该用户已被删除	发表于 2015-10-26 08:56:35 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
并迅速的该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[原创]：一个画圆、矩形的中心线程序

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

相关帖子

浏览过的版块