找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: 米克

2013-08-21 QQ群:ALISP&VLISP(143438137) 聊天记录:哪位兄弟有CAD数字递增LSP插件 给我一个 十分感谢!!!

  [复制链接]

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 16:58:56 | 显示全部楼层
炫翔(2363673534)于2013-08-21 16-58-56:
(DEFUN C:XX())
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 16:59:24 | 显示全部楼层
炫翔(2363673534)于2013-08-21 16-59-24:
(DEFUN C:XX()(SETQ XX 10000))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-8-21 16:59:30 | 显示全部楼层
Happy(410786171)于2013-08-21 16-59-30:
(Setq
         Num(If *Num *Num 1)  ;带*的为全局变量,最后的1为默认值
         Msg(Strcat"\n 设置新文件起始序号:")
         *Num(If(Setq Msg(Getint Msg))Msg Num)
   )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 16:59:36 | 显示全部楼层
炫翔(2363673534)于2013-08-21 16-59-36:
你加载后面的那句试试
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 16:59:59 | 显示全部楼层
炫翔(2363673534)于2013-08-21 16-59-59:
再去其他的程序中可以直接调用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-8-21 17:00:21 | 显示全部楼层
Happy(410786171)于2013-08-21 17-00-21:
你是默认值
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:01:36 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-01-36:
可谓全局变量就是 你最后把他定义成什么值 他就一直是什么值
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:01:42 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-01-42:
注意:最后
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:02:08 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-02-08:
这个一直是在你的当前激活的CAD时候
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:02:23 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-02-23:
只要CAD一旦重新启动 就失效了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-8-21 17:02:28 | 显示全部楼层
Happy(410786171)于2013-08-21 17-02-28:
重新打开一个图就无效了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:02:39 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-02-39:
是的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:03:02 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-03-02:
一般全局变量都是在打开图时  又自动加载了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-21 17:03:12 | 显示全部楼层
炫翔(2363673534)于2013-08-21 17-03-12:
这样这个全局变量又活了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-8-21 21:14:57 | 显示全部楼层
清风明月(897902105)于2013-08-21 21-14-57:
(defun c:TT()
        (setq fle "F:/0接口.csv")

  (setq ff(open fle "W"));;如何写作“(setq f(open fle "a"))”,"a"则是保存原内容,"w"是不保存,在最行一行的下行追加
                   
          (setq ss (ssget "X" '((0 . "TEXT")(8 . "0000用于图元属性快速输出利用(简称“属性”图层)"))))

(setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
        ;这是取得每个被炸开的图元所在的图层名
        ;(setq 新图层名 (cdr(assoc 8 (entget ent))))
        (setq 内容 (CDR (assoc 1 (SETQ 组码表 (entget ent)))))
    (setq XYZ (assoc 10 组码表))
(setq X (CADR XYZ))
    (setq Y (CADDR XYZ))
    (setq Z (CADDDR XYZ))
   
    (setq s (strcat  (vl-princ-to-string 内容) "," (rtos X 2 3) "," (rtos Y 2 3) "," (rtos Z 2 3)))
                         (write-line s ff)
   
    (setq i (1+ i))
  )
  (close fle)
  (SETQ FLE NIL)
  )
请问,上面代码运行正常,但CSV文件被CAD锁定编辑,是怎么回事?能释放它吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-23 23:22 , Processed in 0.403678 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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