免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

查看: 3990|回复: 3
收起左侧

[求助] 一个批量将多个多段线闭合区域写块到多个文件的LISP但是不能运行那位帮忙看以下急用

[复制链接]

7

主题

1380

铜板

4

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
541
发表于 2012-4-24 01:00 | 显示全部楼层 |阅读模式
(setvar "FILEDIA" 0)

  (setq e (entget (car (entsel "\n选择需要查询的对象:"))))
  (setq tcmc (assoc 8 e));图层
  (setq xxlx (assoc 0 e));线型
  (setq xzj (ssget "x" (list xxlx tcmc)))
    (setq n 0)
    (setq MC 1)
    (setq gs(sslength xzj));求出图元个数
    (while (< n gs );如果有多个"jianchaliebei"就循环多次,只有一个就循环一次
         (setq tym(ssname xzj n));得到选择集中第N个对象的个图元名称
       (setq tysx(entget tym '("*")));读出所有图元名的图元属性及扩展属性

       (setq xxlx (cdr(assoc -1 tysx)));线型
      (setq q1 '(0,0))
(setq q1 '(0,0))

(command "-wblock "   MC "" q1  xxlx "" "" )
(setq  MC (+ 1 MC))
(setq  n (+ 1 n))

)
      
      (setvar "FILEDIA" 1)上面是一个批量将多个多段线闭合区域写块到多个文件的LISP但是不能运行那位帮忙看以下急用
问问wwwwwwwww

1

主题

128

铜板

2

好友

技术员

Rank: 3Rank: 3

积分
60
发表于 2012-4-24 09:54 | 显示全部楼层
哥,我觉得你的car有问题。不晓得对不对,按道理来说一个数据的坐标是由x、y坐标构成,但是其中你的car却用来读取其图层,我不知道对不对哈
回复

使用道具 举报

85

主题

9527

铜板

69

好友

黄金会员

Rank: 23Rank: 23Rank: 23Rank: 23Rank: 23Rank: 23Rank: 23

积分
4842
发表于 2012-10-5 15:47 | 显示全部楼层
看不懂呀,
回复

使用道具 举报

0

主题

936

铜板

1

好友

助理工程师

Rank: 5Rank: 5

积分
151
发表于 2017-7-17 10:45 | 显示全部楼层
第二行有问题
回复

使用道具 举报

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

本版积分规则

在线客服
快速回复 返回顶部 返回列表