[讨论]：你对 001论坛的感情还有多少？

yy225cn · 发表于 2003-3-16 21:53:24

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

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

×

作为我来说，认识晓东CAD空间的时间算是比较短了，对于这个论坛的历史知道的更加是太少了，所以我很想知道这个论坛的前身－也就是 001论坛的一些情况，我想跟我一样特别想知道的人也不在少数吧。

希望各位对 001论坛还保有很深感情的前辈们能给我们讲讲当年的一些故事，也让我们能对这个论坛知道的更多吧。

各位前辈千万不要有所保留哦！:4

民工 · 发表于 2003-3-17 03:10:13

民工最早混的是谢永忠的CAD论坛，发的帖子半年没人回，才知道荒芜了。
后来流浪到001论坛，用的是另外的名字，因为上网不方便，在线时间很少，那时就久仰CC等高手的大名了。
以前还去过明经通道，也很不错。
因为水平有限，没有什么高见，学习先进经验，回去多多操练，多为国家贡献，多吃几碗米线。

非梧桐 · 发表于 2003-3-17 09:54:45

对于001，真是一言难尽。到现在，还是觉得恍如昨日。

cy956 · 发表于 2003-3-18 00:19:05

能不能公布一下001以来的曾用名，各位爱换新衣的兄弟姐妹？
001大家庭开始寻亲访友。呵呵。

zsqgreen · 发表于 2003-3-18 14:48:48

其实我上网的时间很早，但那时没有一个固定，在很多地方都留下过踪迹，现在连名字都不记得了！XD现在已经成了习惯，我这人比较懒，不太好学，找到点什么东西就给大家传上来，希望大家能长久的支持！

ll_j · 发表于 2003-3-19 12:41:41

发一个以前保存的网页，是老菜的宝贝，cy别生气，我只是让新朋友看看001论坛的风格，可惜没有首页页面以及南孟分站页面，建议晓东有的话贴一点。

黑心萝卜 · 发表于 2003-3-19 12:56:48

001论坛在哪？
倒闭了？

yy225cn · 发表于 2003-3-19 16:04:39

最初由 ll_j 发布
[B]发一个以前保存的网页，是老菜的宝贝，cy别生气，我只是让新朋友看看001论坛的风格，可惜没有首页页面以及南孟分站页面，建议晓东有的话贴一点。 [/B]

谢谢 ll_j :1 ，老是听他们说起 001论坛，可是我连他长的什么样都不知道，今天终于看到了一些了，虽然只有一个页面，但是我还是很高兴的，真的，特别高兴，希望大家如果有关于 001论坛的东西，都能贡献出来，让我们这些新人也更多的了解一下论坛的历史。

灯火 · 发表于 2003-3-20 06:57:48

001时代的茶馆

非梧桐 · 发表于 2003-3-20 10:49:27

好熟悉的页面，想起好多时候前，挑灯夜战写下许多东西的日子。从前的南孟，现在的灯火，还是一如既往，记着那些柔软的过去。

zsqgreen · 发表于 2003-3-20 11:38:22

虽然以前没有在这个地方留下足迹,但我想以后这里肯定是我的小窝!
呵呵!

Quelea · 发表于 2003-3-21 13:05:53

从前人少，每天上去看看刚刚好。
现在新贴太多太多，看都看不过来。：）

cy956 · 发表于 2003-3-22 01:51:37

以前的剪贴，随手收几段。

标题:法无定法，不可拘泥 (1千字)
发信人:土
时间:2001-6-12 12:45:42
阅读次数:12
详细信息:
1、其实所谓的标准或习惯或规范，都是因时、因人、因行业、因国家而异的，我谈谈我的经验和看法：
2、比如说日本的图纸的视图方向是同中国相反的，有的时候我不得不按他们的习惯作图（就算按中国标准设计并在中国生产时），虽然这样做是违反了中国的制图标准；此所谓因时而异；时势使然；
3、日本和东南亚的图纸按ordinate方式进行标注(有利于NC)，新加坡和马来西亚还有一种做法是不标尺寸（想不通吧，别想），而中国则不是这样的，作为老板，不会有谁因此而不做这些国家的生意的。
4、在图纸上有时要中英对照、中日文对照，这也不是中国的制图标准所能说得通的；有时还要全英文的；世界上最大的工程承包商FLOADANIER,如果给他们做设计，我们能不按他们的图面要求吗，能不用英文吗？（中国至今大概还没有一家成为其长期供应商）
5、现在发达国家的很多行业的图纸已经不标公差，只是中国还在使劲研究公差，对于一台数控机床，输入10+0.1，它会如何跑呢?
6、我在新加坡的时候，有个老板对我讲这个问题，说到中国的绘图习惯是如何不好，要我回国后按发达国家通用的做法如何如何，我当时笑着对他说：对于国营企业恐怕是不可能的，其它企业是相对灵活的；
7、说到底，现在大家都热心得不得了的AutoCAD,也势将在大部分行业退出历史，因为以后高度的自动化，一定要用三维模型，为什么一定要将一个物体用二维的线来表达呢？二维不利于数控加工、不利于分析（如有限元分析、流动分析等等）.
8、所谓比例问题，我还是我的经验，建筑等行业及其它大部分行业都应用1:1的，但有些行业是不好用1：1的；在上海，我至少知道的有5家以上的设计院是不按1:1画图的，当然不是建筑设计院。
9、法无定法，不可拘泥，虽然是否用1:1这个问题本身是没有什么意义的，但从对这个问题的讨论应当得到一些启示；
---------
标题:从前一阶段的讨论来看，大家对联合的观点已经初步达成一致。。。。 (1千字)
发信人:Unknown
时间:2001-6-4 15:05:50
阅读次数:13
详细信息:
从前一阶段的讨论来看，大家对联合的观点已经初步达成一致，相互之间也消除了误会，因此我重提成立一个开放式
CAD技术组织的事，该组织具体的名称待进一步确定，初步的想法是将组织的成员分为商业会员和非商业会员，
加盟商业会员的主要是那些愿意提供产品、技术、服务的个人、团队或其他类型的组织和实体，非商业会员则倾向
于最终用户。但这种划分并不是绝对的，因为很多人既是用户也是开发者，而最终这个组织很可能发展到
“我为人人，人人为我”的局面，这是一种互赢的结局，是不是有些理想化和共产主义？但这是有意义的，
本应当如此。
我不知道有多少人写过“线段加粗”或其它一些类似的通用程序，几乎每一个单位都有一个自己的版本
并自行维护，以后这种问题将被最大程度的避免，本组织将推出一个统一的版本来代替原有的那些版本，
并长期负责进行软件维护和提供技术支持及相关服务，在本组织内部各商业会员共享这些软件的源代码、
算法及各种技术。而非商业会员也会以低成本享用到各种高质量的软件和服务。
当然这个组织并不是仅限于写个“线段加粗”的程序，会有很多工作可做，将陆续推出一批优秀的专业应
用软件。大家有效的组织起来，人人都可以省去很多时间，专心从事自己喜爱的工作或事业，并获得更大的
成就，当然也会有更多的收益，这个不用多说了吧。
有意加盟者，来信到我的信箱ygf263pch@263.net登记一下，就不要在论坛中以跟贴方式提供了，
并附一份个人简历，描述一下自己的专业、技能、所处行业、城市，愿意在组织内担任的工作，联系方式
（可以用自己的ID代替姓名，但一个有效的电子信箱地址必不可少），有什么可以提供软件或产品思路，
以及意见和见解等等。希望有责任心的朋友能够担负各种管理职责，希望水平较高的朋友能够充当组织中的骨干。
欢迎大家继续讨论或提问，在此借晓东一块宝地与大家共商未来，先谢谢晓东了，看看能够找到一批骨干？
标题:“坏的制度能让好人学坏”。换个角度，从我和新加坡的朋友聊天谈起... (710字)
发信人:XDSoft
时间:2001-6-15 20:07:05
阅读次数:7
详细信息:
新加坡的很多设计事务所，现在都在用R14作为ACAD平台，我问他，为什么不用ACAD2000呢？
他跟我说，不是老板不想用，而是升级不起，原来，他们的R14都是正版的，他们公司有50台机器，
就要装50套R14,升级也要花50套的升级费用，
所以，老板升不起。
我问他，那老板怎么不装盗版的？朋友说，新加坡版权法很严，举报有奖，
举报一次，得1万新币，我朋友去3年了，现在可以做设计了（以前只是描图，即使现在做设计也没有签字权利），
工资也不过2400新币。
所以，软件业要真正挣钱，环境是很主要的。
以目前国内的情况，象OBJECTDCL这样的软件，能卖出100套，就是奇迹。
更别谈几万套。
现在哪个软件公司敢拍胸脯保证说自己的VC,WIN98是正版的？更别说每个机器装都要付费。
这就是环境，不是哪个人的过错，
列宁说过，“坏的制度能让好人学坏”。
不说也罢......既然说了，看过就算，
-----
算了xd，我们这里不正点的东西太多，我想各位仁兄肚里都有一本经。如果你是打工仔，必定遭遇过
许多的不公平与无奈；如果你是成功的经营者，你多半就曾参与设下那些不公平与无奈，同时自己
也体验许多的不公平与无奈。...所谓“别人抢钱没事，你可能因为多看一眼被抓进去”时的心态。
说什么呢？说说希望工程吧。来算过这样一笔帐：
我们现在有14亿人口，平均年龄算60岁（实际大于），平均每岁2.4千万（也许年轻人多些，但计划生育
政策如果是成功的适龄儿童数应该差不多）2.4千万中如果有一半的孩子贫困失学（这我不相信，至少人口
稠密的沿海及各大中城市中贫困孩子数并不多）; 按每个孩子五年支付500元记既每年支付12亿。你知道12亿
是什么概念吗？是官员们一不小心就学费了上千亿的多少分之一（以前有报道每年的官学费及大吃大喝等为1000亿以上,
如果这样说不实的话，那么举个实例，就是厦门远华，500亿，够维持40年的希望）。
看看希望的网页上怎么说：
“希望工程实施8年来成绩斐然。据不完全统计，到1997年底，全国希望工程共募集资金12.97亿元，救助
失学儿童184万名，援建希望小学5256所。”
8年13亿，一年平均1.625亿！500亿够维持307年的希望。
那末湛江走私案呢.....这些都是非法的，那末那些好像合法的呢?
大西北的那些人也是守法公民，因为贫穷，还要靠别人资助希望。
一方面是看到那些可怜的孩子，另一方面又感到这是一个可怜的希望。
------
XD,打字累死我了，关于面向对象的讨论暂停，已经不知道那个贴子是新的了。 (空)(南孟今天0:37 阅读 5)
我和你也一样，找不到哪个该回复了。后来就是想写啥就写啥了，sorry，说了那么多废话。 (空)(XDSoft 今天0:40 阅读 1)
恨不相逢未改时，等到下一个版本再“面向对象”吧。 (空)(南孟今天0:42 阅读 4)
面向对象其实方便的是你自己。软件不应该以面向对象去博取用户的欢心。技术的问题永远是对开发者的，用户关... (223字)(XDSoft 今天0:55 阅读 3)
此话有道理。现在好像ARX开发出来的就是高档次，其他均为业余水平。 (空)(南孟今天0:58 阅读 2)
只能去骗不明白的人。LISP一样出精品，不通的开发工具只能对不通的要求。写交互式的程序，ARX比不上LISP。 (空)(XDSoft 今天1:02 阅读 1)
在决定用ARX还是VBA升级到A2K时，头发都白了许多。 (空)(南孟今天1:04 阅读 2)
我的建议是... (305字)(XDSoft 今天1:10 阅读 5)
ok (空)(南孟今天1:13 阅读 0)
不能因为方便了程序员自己的技术，确拿出去作为广告去宣传。 (空)(XDSoft 今天0:56 阅读 0)
DOS也会出“精品”，面向对象也一样出“垃圾”。 (空)(XDSoft 今天0:57 阅读 1)
认识一个人学用c++,一年写不了几百行却成天强调运行速度。 (空)(南孟今天1:02 阅读 2)
这就好比给你一个“法拉力”赛车一样，不是谁都能开起来的。 (空)(XDSoft 今天1:04 阅读 0)
所以，我还是推荐你换“紫光拼音”吧，我一分钟80个字，你打不过我的。 (空)(XDSoft 今天0:41 阅读 0)
00zyf也不来陪着熬夜，老菜进进出出飘忽不定，bye。 (空)(南孟今天1:16 阅读 0)
------
标题:XD论坛联谊会筹备工作现在正紧锣密鼓进行，想参加朋友请进！ (373字)
发信人:南孟
时间:2001-6-17 21:09:56
阅读次数:24
详细信息:
将下列信息发送到xdsoft@bigfoot.com，由XD制成通讯录发给加入的会员。个人信息只作为会员之间联谊之用，不在任何场合向非会员以外的人公开。
1。真实姓名
2。出生日期
3。所在城市
4。有效地址
4。电子信箱
5。个人或公司网址
6。电话
7。OICQ号码
8。专业
9。使用何种编程语言开发AutoCAD。
10。二次开发年限。
11。有何开发打算和计划。
12。其他事项。
-------
=======================================
原有信息:
序号:6222
标题:使用于非2002版的justifytext... (2千字)
发信人:明经通道
时间:2001-6-21 23:57:00
阅读次数:3
详细信息:
;; 更改文本对象的对齐方式(不改变文本的位置)
;;;执行命令：justifytext
;; 程序仿AutoCAD2002的相应命令功能，可以AutoCAD2002以下版本中使用
;; 明经通道 [url]http://www.mccad.net[/url]
;; e-mail [email]mccad@21cn.com[/email]
;; 时间：2001.06.16
(defun C:justifytext (/ mc-err olderr oldcmdecho mode
id str mode-in fh fv n
e-sel ent ah av pnt1 pnt2
entname
)
;;;出错处理
(defun mc-err (errmsg)
(if (/= errmsg "Function cancelled")
(princ (strcat "\n出错 : " errmsg))
)
(setq *error* olderr)
(setvar "CMDECHO" oldcmdecho)
(princ)
)
;;;主程序开始
(setq olderr *error*
*error* mc-err
)
(setq oldcmdecho
(getvar "CMDECHO")
mode "Left"
id T
)
(setvar "cmdecho" 0)
(while (setq e-sel (ssget '((0 . "TEXT"))))
(setq str
(strcat
"\n输入选项 [中间(M)左(L)/中心(C)/右(R)/左上(TL)/中上(TC)
/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中下(BC)/右下(BR)]：<"
mode
">:"
)
)
(initget
"Left Center Middle Right TL TC TR ML MC MR BL BC BR"
)
(setq mode-in (getkword str))
(if (= mode-in nil)
(setq mode mode)
(setq mode mode-in)
)
(cond
((= mode "Middle")
(setq fh 4
fv 0
)
)
((= mode "Left")
(setq fh 0
fv 0
)
)
((= mode "Center")
(setq fh 1
fv 0
)
)
((= mode "Right")
(setq fh 2
fv 0
)
)
((= mode "TL")
(setq fh 0
fv 3
)
)
((= mode "TC")
(setq fh 1
fv 3
)
)
((= mode "TR")
(setq fh 2
fv 3
)
)
((= mode "ML")
(setq fh 0
fv 2
)
)
((= mode "MC")
(setq fh 1
fv 2
)
)
((= mode "MR")
(setq fh 2
fv 2
)
)
((= mode "BL")
(setq fh 0
fv 1
)
)
((= mode "BC")
(setq fh 1
fv 1
)
)
((= mode "BR")
(setq fh 2
fv 1
)
)
)
(setq fh (cons 72 fh)
fv (cons 73 fv)
)
(setq n 0)
(repeat (sslength e-sel)
(setq ent (entget (ssname e-sel n)))
(setq ah (assoc 72 ent)
av (assoc 73 ent)
pnt1 (cdr (assoc 10 ent))
ent (subst fh ah ent)
ent (subst fv av ent)
n (+ 1 n)
)
(entmod ent)
(setq entname (entupd (cdr (assoc -1 ent))))
(setq pnt2 (cdr (assoc 10 (entget entname))))
(command "_move" entname "" "non" pnt2 "non" pnt1)
)
)
(setvar "CMDECHO" oldcmdecho)
(setq *error* olderr)
(princ)
)
-------
标题:面向对象终极解释。 (160字)
发信人:南孟
时间:2001-6-22 0:24:38
阅读次数:3
详细信息:
很多地方都把谈恋爱称为处对象或找对象，
山东人在结婚以后还把配偶称为对象，
可见，面向对象就要用勇敢地正确地处理爱情问题，
也可以解释为，人的一生离不开对象。
--------

标 题:法无定法，不可拘泥 (1千字) 
发信人:土 
时 间:2001-6-12 12:45:42 
阅读次数:12 
详细信息: 
 
1、其实所谓的标准或习惯或规范，都是因时、因人、因行业、因国家而异的，我谈谈我的经验和看法： 
2、比如说日本的图纸的视图方向是同中国相反的，有的时候我不得不按他们的习惯作图（就算按中国标准设计并在中国生产时），虽然这样做是违反了中国的制图标准；此所谓因时而异；时势使然； 
3、日本和东南亚的图纸按ordinate方式进行标注(有利于NC)，新加坡和马来西亚还有一种做法是不标尺寸（想不通吧，别想），而中国则不是这样的，作为老板，不会有谁因此而不做这些国家的生意的。 
4、在图纸上有时要中英对照、中日文对照，这也不是中国的制图标准所能说得通的；有时还要全英文的；世界上最大的工程承包商FLOADANIER,如果给他们做设计，我们能不按他们的图面要求吗，能不用英文吗？（中国至今大概还没有一家成为其长期供应商） 
5、现在发达国家的很多行业的图纸已经不标公差，只是中国还在使劲研究公差，对于一台数控机床，输入10+0.1，它会如何跑呢? 
6、我在新加坡的时候，有个老板对我讲这个问题，说到中国的绘图习惯是如何不好，要我回国后按发达国家通用的做法如何如何，我当时笑着对他说：对于国营企业恐怕是不可能的，其它企业是相对灵活的； 
7、说到底，现在大家都热心得不得了的AutoCAD,也势将在大部分行业退出历史，因为以后高度的自动化，一定要用三维模型，为什么一定要将一个物体用二维的线来表达呢？二维不利于数控加工、不利于分析（如有限元分析、流动分析等等）. 
8、所谓比例问题，我还是我的经验，建筑等行业及其它大部分行业都应用1:1的，但有些行业是不好用1：1的；在上海，我至少知道的有5家以上的设计院是不按1:1画图的，当然不是建筑设计院。 
 
9、法无定法，不可拘泥，虽然是否用1:1这个问题本身是没有什么意义的，但从对这个问题的讨论应当得到一些启示； 
 
--------- 
 
标 题:从前一阶段的讨论来看，大家对联合的观点已经初步达成一致。。。。 (1千字) 
发信人:Unknown 
时 间:2001-6-4 15:05:50 
阅读次数:13 
详细信息: 
 
从前一阶段的讨论来看，大家对联合的观点已经初步达成一致，相互之间也消除了误会，因此我重提成立一个开放式 
CAD技术组织的事，该组织具体的名称待进一步确定，初步的想法是将组织的成员分为商业会员和非商业会员， 
加盟商业会员的主要是那些愿意提供产品、技术、服务的个人、团队或其他类型的组织和实体，非商业会员则倾向 
于最终用户。但这种划分并不是绝对的，因为很多人既是用户也是开发者，而最终这个组织很可能发展到 
“我为人人，人人为我”的局面，这是一种互赢的结局，是不是有些理想化和共产主义？但这是有意义的， 
本应当如此。 
    我不知道有多少人写过“线段加粗”或其它一些类似的通用程序，几乎每一个单位都有一个自己的版本 
并自行维护，以后这种问题将被最大程度的避免，本组织将推出一个统一的版本来代替原有的那些版本， 
并长期负责进行软件维护和提供技术支持及相关服务，在本组织内部各商业会员共享这些软件的源代码、 
算法及各种技术。而非商业会员也会以低成本享用到各种高质量的软件和服务。 
    当然这个组织并不是仅限于写个“线段加粗”的程序，会有很多工作可做，将陆续推出一批优秀的专业应 
用软件。大家有效的组织起来，人人都可以省去很多时间，专心从事自己喜爱的工作或事业，并获得更大的 
成就，当然也会有更多的收益，这个不用多说了吧。 
    有意加盟者，来信到我的信箱ygf263pch@263.net登记一下，就不要在论坛中以跟贴方式提供了， 
并附一份个人简历，描述一下自己的专业、技能、所处行业、城市，愿意在组织内担任的工作，联系方式 
（可以用自己的ID代替姓名，但一个有效的电子信箱地址必不可少），有什么可以提供软件或产品思路， 
以及意见和见解等等。希望有责任心的朋友能够担负各种管理职责，希望水平较高的朋友能够充当组织中的骨干。 
    欢迎大家继续讨论或提问，在此借晓东一块宝地与大家共商未来，先谢谢晓东了，看看能够找到一批骨干？ 
 
标 题:“坏的制度能让好人学坏”。换个角度，从我和新加坡的朋友聊天谈起... (710字) 
发信人:XDSoft 
时 间:2001-6-15 20:07:05 
阅读次数:7 
详细信息: 
 
新加坡的很多设计事务所，现在都在用R14作为ACAD平台，我问他，为什么不用ACAD2000呢？ 
 
他跟我说，不是老板不想用，而是升级不起，原来，他们的R14都是正版的，他们公司有50台机器， 
就要装50套R14,升级也要花50套的升级费用， 
所以，老板升不起。 
 
我问他，那老板怎么不装盗版的？朋友说，新加坡版权法很严，举报有奖， 
举报一次，得1万新币，我朋友去3年了，现在可以做设计了（以前只是描图，即使现在做设计也没有签字权利）， 
工资也不过2400新币。 
 
所以，软件业要真正挣钱，环境是很主要的。 
 
以目前国内的情况，象OBJECTDCL这样的软件，能卖出100套，就是奇迹。 
更别谈几万套。 
 
现在哪个软件公司敢拍胸脯保证说自己的VC,WIN98是正版的？更别说每个机器装都要付费。 
 
这就是环境，不是哪个人的过错， 
 
列宁说过，“坏的制度能让好人学坏”。 
 
  不说也罢......既然说了，看过就算， 
 
----- 
 
  算了xd，我们这里不正点的东西太多，我想各位仁兄肚里都有一本经。如果你是打工仔，必定遭遇过 
许多的不公平与无奈；如果你是成功的经营者，你多半就曾参与设下那些不公平与无奈，同时自己 
也体验许多的不公平与无奈。...所谓“别人抢钱没事，你可能因为多看一眼被抓进去”时的心态。 
  说什么呢？说说希望工程吧。来算过这样一笔帐： 
  我们现在有14亿人口，平均年龄算60岁（实际大于），平均每岁2.4千万（也许年轻人多些，但计划生育 
政策如果是成功的适龄儿童数应该差不多）2.4千万中如果有一半的孩子贫困失学（这我不相信，至少人口 
稠密的沿海及各大中城市中贫困孩子数并不多）; 按每个孩子五年支付500元记既每年支付12亿。你知道12亿 
是什么概念吗？是官员们一不小心就学费了上千亿的多少分之一（以前有报道每年的官学费及大吃大喝等为1000亿以上, 
如果这样说不实的话，那么举个实例，就是厦门远华，500亿，够维持40年的希望）。 
  看看希望的网页上怎么说： 
  “希望工程实施8年来成绩斐然。据不完全统计，到1997年底，全国希望工程共募集资金12.97亿元，救助 
失学儿童184万名，援建希望小学5256所。” 
  8年13亿，一年平均1.625亿！500亿够维持307年的希望。 
  那末湛江走私案呢.....这些都是非法的，那末那些好像合法的呢? 
 
  大西北的那些人也是守法公民，因为贫穷，还要靠别人资助希望。 
  一方面是看到那些可怜的孩子，另一方面又感到这是一个可怜的希望。 
 
------ 
 
XD,打字累死我了，关于面向对象的讨论暂停，已经不知道那个贴子是新的了。 (空)(南孟 今天0:37 阅读 5) 
我和你也一样，找不到哪个该回复了。后来就是想写啥就写啥了，sorry，说了那么多废话。 (空)(XDSoft 今天0:40 阅读 1) 
恨不相逢未改时，等到下一个版本再“面向对象”吧。 (空)(南孟 今天0:42 阅读 4) 
面向对象其实方便的是你自己。软件不应该以面向对象去博取用户的欢心。技术的问题永远是对开发者的，用户关... (223字)(XDSoft 今天0:55 阅读 3) 
此话有道理。现在好像ARX开发出来的就是高档次，其他均为业余水平。 (空)(南孟 今天0:58 阅读 2) 
只能去骗不明白的人。LISP一样出精品，不通的开发工具只能对不通的要求。写交互式的程序，ARX比不上LISP。 (空)(XDSoft 今天1:02 阅读 1) 
在决定用ARX还是VBA升级到A2K时，头发都白了许多。 (空)(南孟 今天1:04 阅读 2) 
我的建议是... (305字)(XDSoft 今天1:10 阅读 5) 
ok (空)(南孟 今天1:13 阅读 0) 
不能因为方便了程序员自己的技术，确拿出去作为广告去宣传。 (空)(XDSoft 今天0:56 阅读 0) 
DOS也会出“精品”，面向对象也一样出“垃圾”。 (空)(XDSoft 今天0:57 阅读 1) 
认识一个人学用c++,一年写不了几百行却成天强调运行速度。 (空)(南孟 今天1:02 阅读 2) 
这就好比给你一个“法拉力”赛车一样，不是谁都能开起来的。 (空)(XDSoft 今天1:04 阅读 0) 
所以，我还是推荐你换“紫光拼音”吧，我一分钟80个字，你打不过我的。 (空)(XDSoft 今天0:41 阅读 0) 
00zyf也不来陪着熬夜，老菜进进出出飘忽不定，bye。 (空)(南孟 今天1:16 阅读 0) 
 
------ 
 
标 题:XD论坛联谊会筹备工作现在正紧锣密鼓进行，想参加朋友请进！ (373字) 
发信人:南孟 
时 间:2001-6-17 21:09:56 
阅读次数:24 
详细信息: 
 
将下列信息发送到xdsoft@bigfoot.com，由XD制成通讯录发给加入的会员。个人信息只作为会员之间联谊之用，不在任何场合向非会员以外的人公开。 
  1。真实姓名 
  2。出生日期 
  3。所在城市 
  4。有效地址 
  4。电子信箱 
  5。个人或公司网址 
  6。电话 
  7。OICQ号码 
  8。专业 
  9。使用何种编程语言开发AutoCAD。 
  10。二次开发年限。 
  11。有何开发打算和计划。 
  12。其他事项。 
 
------- 
 
======================================= 
原有信息: 
序 号:6222 
标 题:使用于非2002版的justifytext... (2千字) 
发信人:明经通道 
时 间:2001-6-21 23:57:00 
阅读次数:3 
详细信息: 
 
;; 更改文本对象的对齐方式(不改变文本的位置) 
;;;执行命令：justifytext 
 
;; 程序仿AutoCAD2002的相应命令功能，可以AutoCAD2002以下版本中使用 
 
;; 明经通道 [url]http://www.mccad.net[/url] 
;; e-mail  [email]mccad@21cn.com[/email] 
;; 时间：2001.06.16         
 
(defun C:justifytext (/          mc-err  olderr  oldcmdecho      mode 
              id      str    mode-in fh      fv      n 
              e-sel  ent    ah      av      pnt1    pnt2 
              entname 
            ) 
 
;;;出错处理 
  (defun mc-err    (errmsg) 
    (if    (/= errmsg "Function cancelled") 
      (princ (strcat "\n出错 : " errmsg)) 
    ) 
    (setq *error* olderr) 
    (setvar "CMDECHO" oldcmdecho) 
    (princ) 
  ) 
;;;主程序开始 
  (setq    olderr    *error* 
    *error*    mc-err 
  ) 
  (setq    oldcmdecho 
     (getvar "CMDECHO") 
    mode "Left" 
    id T 
  ) 
  (setvar "cmdecho" 0) 
  (while (setq e-sel (ssget '((0 . "TEXT")))) 
    (setq str 
      (strcat 
        "\n输入选项 [中间(M)左(L)/中心(C)/右(R)/左上(TL)/中上(TC) 
        /右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中下(BC)/右下(BR)]：<" 
        mode 
        ">:" 
      ) 
    ) 
    (initget 
      "Left Center Middle Right TL TC TR ML MC MR BL BC BR" 
    ) 
    (setq mode-in (getkword str)) 
    (if    (= mode-in nil) 
      (setq mode mode) 
      (setq mode mode-in) 
    ) 
 
    (cond 
      ((= mode "Middle") 
      (setq fh    4 
        fv    0 
      ) 
      ) 
      ((= mode "Left") 
      (setq fh    0 
        fv    0 
      ) 
      ) 
      ((= mode "Center") 
      (setq fh    1 
        fv    0 
      ) 
      ) 
      ((= mode "Right") 
      (setq fh    2 
        fv    0 
      ) 
      ) 
      ((= mode "TL") 
      (setq fh    0 
        fv    3 
      ) 
      ) 
      ((= mode "TC") 
      (setq fh    1 
        fv    3 
      ) 
      ) 
      ((= mode "TR") 
      (setq fh    2 
        fv    3 
      ) 
      ) 
      ((= mode "ML") 
      (setq fh    0 
        fv    2 
      ) 
      ) 
      ((= mode "MC") 
      (setq fh    1 
        fv    2 
      ) 
      ) 
      ((= mode "MR") 
      (setq fh    2 
        fv    2 
      ) 
      ) 
      ((= mode "BL") 
      (setq fh    0 
        fv    1 
      ) 
      ) 
      ((= mode "BC") 
      (setq fh    1 
        fv    1 
      ) 
      ) 
      ((= mode "BR") 
      (setq fh    2 
        fv    1 
      ) 
      ) 
    ) 
    (setq fh (cons 72 fh) 
      fv (cons 73 fv) 
    ) 
    (setq n 0) 
    (repeat (sslength e-sel) 
      (setq ent (entget (ssname e-sel n))) 
      (setq ah     (assoc 72 ent) 
        av     (assoc 73 ent) 
        pnt1 (cdr (assoc 10 ent)) 
        ent     (subst fh ah ent) 
        ent     (subst fv av ent) 
        n     (+ 1 n) 
      ) 
      (entmod ent) 
      (setq entname (entupd (cdr (assoc -1 ent)))) 
      (setq pnt2 (cdr (assoc 10 (entget entname)))) 
      (command "_move" entname "" "non" pnt2 "non" pnt1) 
    ) 
  ) 
 
  (setvar "CMDECHO" oldcmdecho) 
  (setq *error* olderr) 
  (princ) 
) 
 
------- 
 
标 题:面向对象终极解释。 (160字) 
发信人:南孟 
时 间:2001-6-22 0:24:38 
阅读次数:3 
详细信息: 
 
很多地方都把谈恋爱称为处对象或找对象， 
山东人在结婚以后还把配偶称为对象， 
可见，面向对象就要用勇敢地正确地处理爱情问题， 
也可以解释为，人的一生离不开对象。 
 
 
--------

fjw_ok · 发表于 2003-3-22 11:24:14

001论坛群    在线人数：全论坛980人，本论坛15人 001论坛系统

返回论坛首页（刷新）

晓东的CAD空间－CAD开发论坛
原有信息:
序号:7814
标题:【解决方案】VBA调用ObjectARX函数的几种方法 - 原来写的老文章，为了解决killl的问题又找了出来，vlisp也可以用 (6千字)
发信人:mcpssx
时间:2001-6-26 14:40:03
阅读次数:21
详细信息:

AutoCAD从14版本开始支持Visual Basic for Application（VBA）开发环境，为AutoCAD的二次开发提供了新的强有力工具。Visual Basic是微软大力推广的开发语言，它具有简单易学的优点，尤其对于界面开发和数据库应用来说是一种高效的开发工具。
但是VBA还不能完全取代ObjectARX开发技术，首先，有些高级功能必须使用ObjectARX开发，例如创建自定义对象和实体，实现AutoCAD的协议扩展等，其次是由于Basic语言本身的局限性，比如它是解释执行，不适合用于大型计算，由于不支持指针，Basic语言也不易实现链表、堆栈等常用数据结构，这就限制了它的应用范围。
ObjectARX是AutoCAD最强有力的开发工具，它使用面向对象的C++应用程序开发机制，以动态连接库的形式与AutoCAD共享地址空间，并可被AutoCAD环境直接调用，具有较高的程序开发与执行效率，它比Visual Lisp、VBA和Ads更充分地利用了AutoCAD开发体系结构。理论上说，任何VBA或Visual Lisp的程序都可以用ObjectARX来实现。但在实际开发中，我们必须考虑开发的效率，我们希望能够更快更好地开发出更易维护的程序，完全使用ARX是不必要和不经济的。Visual C++比Viusal Basic难于使用，C++代码更易出错，有些功能使用Visual Basic开发更简便有效，比如在控制其它应用程序上，如果我们想控制Word自动生成计算书，驱动Excel生成统计报表，使用Visual C++比Visual Basic要繁琐的多。
在CAD专业软件的二次开发中，较好的解决方法是结合使用VBA和ObjectARX，我们可以使用VB快速开发大部分前台处理功能，比如用户界面开发，一般实体的生成等，而由ObjectARX程序实现系统的核心数据处理和其它VB不能实现的功能。正如过去我们使用Ads来扩展AutoLisp一样，现在我们可以使用ObjectARX来扩展VBA的功能，要达到这个目的，VBA程序必须能够调用ARX代码。通过对ARX机制的分析，我们总结出以下三种方法。

一．使用文档对象的SendCommand方法
AutoCAD 2000在AcadDocument对象中提供了SendCommand方法，可以调用AutoCAD系统命令和用户自定义命令。例如我们在ObjectARX程序中定义了新的命令ArxTest,则在VBA中可以如下调用：
ThisDrawing.SendCommand “ArxTest”
SendCommand方法虽然简单，但是这种方法不能传递参数，也不能取得函数的返回值，不适合混合语言的编程。

二．调用ObjectARX程序中的动态连接库函数
熟悉Visual Basic编程的人都知道，Visual Basic可以调用其他语言（如VC、Delphi）编写的动态连接库中的函数以扩展其功能，而ObjectARX程序其实就是一个ARX后缀的动态连接库。
1. 首先使用Visual C++创建一个ObjectARX工程。
2. 定义一个DLL输出函数，例如
extern “C” int ArxDllTest(LPCTSTR str)
{
ads_printf(str);    //在这里调用ObjectARX函数和代码
   acedPostCommandPrompt();

return 1;
}

DLL函数的语法与C++语言中的内部函数基本相同，但一定要注意要在函数名前加上  extern “C”，表示这个函数是C风格的。
另外需要注意的是由于ACAD2000是一个多文档程序(MDI Application)，如果在DLL函数中需要修改Acad文档，例如创建或修改AutoCAD实体，必须在调用前将当前的文档锁定，在使用后将当前文档解锁，否则会导致AutoCAD系统崩溃。ObjectARX开发文档中的很多示例函数只能在一般的ObjectARX命令函数中调用，如果在DLL函数中调用，一定要进行必要的修改，这是编写普通Arx命令函数和 Arx DLL函数的重要不同点

3. 修改项目的模块定义文件ArxDll.DEF,在EXPORTS中加入自定义函数的声明。
  LIBRARY    "ArxDll"

  EXPORTS
   acrxEntryPoint       PRIVATE
   acrxGetApiVersion    PRIVATE
   ArxDllTest                   #这里就是我们的DLL函数的声明
4. 在VBA中加入对ArxDllTest的声明
Private Declare Function ArxDllTest Lib “c:\ArxDll\Debug\ArxDll.arx”(s As String) As Long
5．调用函数，例如
Sub DllTest
      ArxDllTest “Hello”
End Sub
运行时不用手工加载ArxDll.arx， VBA环境会自动加载相关的ARX程序。

三．使用ActiveX自动化技术
ActiveX自动化是微软公司用于实现二进制代码重用和组件开发的技术基础，它可以让我们的应用程序(ActiveX自动化客户程序)直接调用其它应用程序的功能(它们被称为ActiveX自动化服务器)而无需后者的源代码或链接库。VBA本身就是通过ActiveX自动化技术与AutoCAD通信，AutoCAD软件就是一个ActiveX Automation Server，它对外显露了AcadApplication、AcadDocument、AcadModelSpace等自动化对象，而VBA通过引用这些对象及其方法和属性来控制AutoCAD，如果我们的ObjectArx程序也能符合ActiveX技术规范，就同样可以被VBA调用。
1. 创建和配置ActiveX DLL 项目
(1) 启动Visual C++ 6.0，选择File\New…，弹出对话框。
(2) 在弹出的对话框中选择Projects标签，在其向导类型中选择MFC AppWizard（DLL），然后在Projects输入框中输入项目名（例如ArxSvr），在Location输入框中输入目录，并选择Create  new workspace选项，最后单击OK按钮进入MFC AppWizard – step 1 of 1对话框。
(3) 在MFC AppWizard – step 1 of 1对话框选择支持Automation，选择Finish按钮生成工程。
(4) 打开Tools/Options…对话框，在Directory标签中将ObjectARX SDK的头文件和库文件路径加入默认的Includes files和Libs files中，本操作只需作一次，这样编译时VC才能找到相关的文件。
(5) 打开Project/Setting…对话框，选择Linking标签，在Category列表框中选择General，在Object/Library modules中加入所需的ObjectARX函数库，如rxapi.lib acrx15.lib acdb15.lib acutil15.lib acge15.lib acgiapi.lib achapi15.lib acISMobj15.lib axauto15.lib acad.lib acedapi.lib acsiobj.lib等。
(6) 在stdafx.h中加入必需的ObjectARX头文件，例如adslib.h等。
(7) 如果本程序同时定义了自定义的命令，就要加入acrxEntryPoint入口函数并修改文件后缀为.arx，不过如果程序代码只供VBA调用，可以省略这一步。

2. 创建新的ActiveX对象
(1) 选择View/Class Wizard…打开ClassWizard对话框创建一个新类，在Name中输入对象名CArxTest，在Base Class选择CCmdTarget作为父类，在Automation中选择Creatable by type ID，然后选择OK。
(2) 为对象添加方法或属性。在ClassWizard中选择Automation标签，在Class name中选择我  们刚生成的CArxTest，再单击Add Method…按钮弹出Add method对话框，在 External  name中输入方法名例如ShowStr，在Return type中选择void，在Parameter list中添加一个参数，例如LPCSTR str，最后点击OK返回MFC ClassWizard对话框。
(3) 在External names列表框中双击ShowStr进入编辑器添加我们的函数代码，例如：
void CArxTest::ShowStr(LPCTSTR str)
{
   // TODO: Add your dispatch handler code here
   ads_printf(str);
   acedPostCommandPrompt();
  }
  与编写DLL函数相同，这里也要特别注意Acad文档的锁定问题。
(4) 编译程序生成ActiveX DLL。

3. VBA调用ActiveX对象
(1)    在AutoCAD 2000中输入VBAIDE命令启动VBA开发环境。
(2) 选择工具\引用…菜单，在对话框中添加我们开发的ActiveX DLL程序的引用。
(3) 编写调用代码，例如：
Sub ActiveXTest
   Dim obj As ArxTest
   Set obj = New ArxTest
obj.ShowStr “Hello!”
Set obj = Nothing
  End Sub
  运行ActiveXTest宏，我们将看到在AutoCAD 2000命令行中显示了Hello!字符串。

以上方法均在AutoCAD2000和Visual C++ 6.0环境中调试通过。后两种方法虽然并未写入ObjectARX的开发文档中，但从程序原理分析和实际调试结果都说明它们是切实可行的，通过这两种方法，就可以实现ObjectARX程序的二进制级代码重用和组件化开发，这对于大型软件项目尤其具有一定的意义。

--------------------------------------------------------------------------------
发布响应:
  响应信息前,请确认您发表的信息符合中华人民共和国法律法规。第一次来的新用户想发言，必须先注册，请点击表格中的"登记用户"。声明：本论坛严禁上贴任何政治敏感文章和带有色情成分的文章，否则文章将被删除，对于恶意上贴者本站将及时向公安部门汇报上贴者信息。
姓名  登记用户密码
主题
主题图标高兴挤眼  恐惧有趣伤心吐舌
微笑大笑傻笑狞笑淫笑鬼脸
不爽发愁痛苦忧愁急死大哭
晕倒恶魔弱智摆谱羞涩生气
好奇无聊疲倦赞扬反对喜欢
问题请进注意主意你好文章

详细内容
回应通知有回应信息时不使用EMAIL通知有直接回应信息时使用EMAIL通知有直接和间接回应信息时使用EMAIL通知

--------------------------------------------------------------------------------
001论坛软件版权所有:001.com.cn和world001.com 与本软件有关事项请与001联系

　

雄啸 · 发表于 2003-3-22 12:22:07

倍感亲切，尤其灯火贴的南梦茶馆里面还能看到我的名字
001页面我没有保存多少，不过有些文章我倒是用 clipcache 剪贴板复制软件记录下来了。有时间贴几篇出来。：）

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

[讨论]：你对 001论坛 的感情还有多少？

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

相关帖子

[讨论]：你对 001论坛的感情还有多少？