乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 80|回复: 4

关于VLAX-Add-Cmd函数--如何使自定义命令同内部命令一样

[复制链接]

21

主题

88

帖子

17

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
164
发表于 2003-3-28 09:01:00 | 显示全部楼层 |阅读模式
关于VLAX-Add-Cmd函数--如何使自定义命令同内部命令一样.
    使用VLAX-Add-Cmd函数可以向注册用户命令.
以下面程序为例在"单文档兼容模式"下运行没有发现问题.
但在多文档模式下切出现下面奇怪的问题:

                               
登录/注册后可看大图


先将程序添加到启动组;

                               
登录/注册后可看大图


打开任意dwg文档如:图1.dwg,在命令行输入dsin成功执行该命令;
打再开另一dwg文档如:图2.dwg,在命令行输入dsin成功执行该命令;
通过窗口切换回"图1.dwg",在命令行输入dsin执行该命令时,出现下图的错误.

                               
登录/注册后可看大图


本人百思不得其解,希望能有高手抽神来研究一下该如何解决.
(Defun DSin (/ x n z s dx cm bl x0 y0);;绘制正弦曲线的程序;
       (SetQ x 0
             p (GetPoint "\n基点: ") x0 (Car p) y0 (Cadr p)
             n (GetInt "\n精度(全线上直线片段数): ")
             z (GetReal "\n周期数: ")
             s (GetReal "\n波高系数: ")
             dx (/ (* z 2 Pi) n)
       )
       (SetQ cm (GetVar "cmdecho") bl (GetVar "blipmode"))
       (SetVar "cmdecho" 0) (SetVar "blipmode" 0)
       (Command "pline" p)
       (Repeat n
               (SetQ x (+ x dx))
               (Command (List (+ x0 x) (+ y0 (* s (Sin x)))))
                                                      
       )
       (Command "")
       (SetVar "cmdecho" cm) (SetVar "blipmode" bl) (PrinC)
)
(VLAX-Add-Cmd "DSin" 'DSin);注册用户命令;
;(注:上述程序引至陈伯雄的)
回复

使用道具 举报

22

主题

248

帖子

10

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
336
发表于 2003-3-28 15:33:00 | 显示全部楼层
只有真正ActiveX才能真正支持多图档操作。但是meflying先生的主意肯定有效,而且更简洁...[br]
回复

使用道具 举报

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
1
发表于 2003-3-29 11:18:00 | 显示全部楼层
请教版主,在CAD中怎样实现两个图元的合并,比如把两个不相交的直线合并成一个图元
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-3-31 09:11:00 | 显示全部楼层
附带一个与菜单文件同名的*.MNL文件,在文件中可用LISP语句定义命令。或直接加在acad.mnl中[br]
回复

使用道具 举报

21

主题

88

帖子

17

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
164
发表于 2003-4-3 15:31:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:wdkinzb1nwc.zip 
下载次数:0  文件大小:5.15 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-1 10:33 , Processed in 0.751444 second(s), 67 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表