找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 491|回复: 0

[求助] [求助]:在启动cad图是就执行自定义名,当命令内含有""号是为什么会弹出帮

[复制链接]
发表于 2008-3-2 11:44:59 | 显示全部楼层 |阅读模式

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

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

×
我现在想当cad图打开时就自动实行命令,实现功能不用在交互输入。功能是将指定实体选择到选择集,然后删掉实体,代码如下:
(defun c:aa(/)
(setq mycmdecho(getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq dwgname(strcat "D:\\lsm\\执行\\lsmManage\\gc1.dwg"));;注意,需要将此改成相对路径
(Setq gm (ssget "x" '((0 . "INSERT") (2 . "aaaa") (6 . "CONTINUOUS") (8 . "TK"))))
(if gm
    (progn
      (setq n  (sslength gm)
                 n0 0
     )
      (repeat n
        (setq ssi (ssname gm n0))
        (setq sse (entget ssi))
        (setq pt (cdr (assoc 10 sse)))
        (command "insert" dwgname pt 1 1 0)
        (setq n0 (+ n0 1))
      );;end repeat
));;end if
(command "erase" gm "")
(setvar "cmdecho" mycmdecho)
(princ)
)
(c:aa)
(princ)
能正常完成任务,但是总是弹出了帮助对话框,我检查下,好像就是(command "erase" gm "")中的“”号的问题,不能加空格,怎么办啊?有别的高招没有啊,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-16 21:41 , Processed in 0.171517 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表