乐筑天下

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

vlax-add-cmd

[复制链接]

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-4-19 00:24:00 | 显示全部楼层 |阅读模式
您好!
请问:         (defun ze() (command "._zoom" "e"))
                                                                                (vlax-add-cmd "ze" 'ze "ze" 1)
                                                                 为什么在使用其它命令的过程中使用'ze会出错,
                                                                 而(defun ok() (prompt "\nOK!"))
                                                                         (vlax-add-cmd "ok" 'ok "ok" 1)
                                                                 在使用其它命令的过程中使用'ok不会出错?
                                                                        我该用什么方法才能达到在使用其它命令的过程中使用'ze不会出错?
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-4-19 07:09:00 | 显示全部楼层
In help file:
Adds commands to the AutoCAD built-in command set (vlax-add-cmd global-name func-sym [local-name cmd-flags]) With vlax-add-cmd you can define a function as an AutoCAD command, without using the c: prefix in the function name. You can also define a transparent AutoLISP command, which is not possible with a c: function. Warning!         You cannot use the c ommand function call in a transparently defined vlax-add-cmd function. Doing so can cause AutoCAD to close unexpectedly.
You can define ZE in this way:
(defun ze() (vla-ZoomExtents (vlax-get-acad-object)))
回复

使用道具 举报

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-4-20 01:33:00 | 显示全部楼层
谢谢!
请问怎样才能将'ms设为类似'ze的功能?
(defun ms() (command "._pan" (cadr (grread 1 1 3)) (getvar "viewctr")))
急需!
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-4-20 07:01:00 | 显示全部楼层
(defun ms() (vla-ZoomCenter (vlax-get-acad-object)
                                                 (vlax-3d-point (cadr (grread 1 1 3))) (getvar "VIEWSIZE")))
回复

使用道具 举报

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-4-20 20:37:00 | 显示全部楼层
谢谢alin,您真的很厉害!
我编了一个在删pline线上节点的程序,接下来想编一个在pline线上加节点的程序,但一直不知该如何下手,您能否帮帮忙或指点一下思路?
再次谢谢!
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-4-22 06:15:00 | 显示全部楼层
Pedit --> Edit Vertex --> Insert --> (pick point)
回复

使用道具 举报

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-4-22 19:50:00 | 显示全部楼层
谢谢!
我先试试.
回复

使用道具 举报

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-4-22 21:26:00 | 显示全部楼层
alin,您好!
我把4楼所说的ms功能加入命令集后(允许透明调用),想设定"F12"为快捷键,在运行其它CAD命令的过程中按"F12"也有效,该怎么做?
回复

使用道具 举报

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-4-23 01:38:00 | 显示全部楼层
alin:8楼的问题我已解决.请问按您6楼的提示,我怎样才能得到需加点处的最近节点序号?
或是有其它方法?若用vla-addvertex该怎么编?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-16 03:25 , Processed in 7.509014 second(s), 70 queries .

© 2020-2025 乐筑天下

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