乐筑天下

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

新手求助,望各位前辈指点!!!

[复制链接]

6

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
47
发表于 2004-2-19 23:25:00 | 显示全部楼层 |阅读模式
以前竟然没有发现世上还有这么好的CAD开发论坛,真是遗憾啊!!这里有这么多的朋友一起学习交流一定很棒的!!以后这里就是我们共同的家,愿弟兄们多多指教! 我还是刚学LISP,很菜的请不要见笑。
我想编一程序,对当前图上在1000 层上所有的 text ,根据其高、宽等属性的不同,逐一进行修改,但不知从何入手。
小弟不太明白LISP中的选择集是如何选择,并对图元进行 逐个 操作的。
         (setq ss1 (ssget ((0 . "TEXT"))))                                                         
         
         (setq ss1 (ssget "W" pt1 pt2 ((8 . "1000"))))                       
请各位前辈帮小弟写一下,不胜感激!! 注:我用的是CAD2000
回复

使用道具 举报

14

主题

270

帖子

9

银币

后起之秀

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

铜币
326
发表于 2004-2-20 05:26:00 | 显示全部楼层
你的过滤表有点问题,请参见(setq ss1 (ssget '((0 . "TEXT") (8 . "1000")))),注意符号'的位置。 然后就可以操作ss1了。
(setq n (sslength ss1))
(repeat n
……
回复

使用道具 举报

6

主题

23

帖子

3

银币

初来乍到

Rank: 1

铜币
47
发表于 2004-2-20 09:00:00 | 显示全部楼层

谢谢cqnj023兄这么快就给了回复,这里的朋友真是都很热心哪! 送您鲜花一朵,不成敬意! 是不是这样就可以了
回复

使用道具 举报

20

主题

872

帖子

10

银币

中流砥柱

Rank: 25

铜币
952
发表于 2004-2-20 12:55:00 | 显示全部楼层
全选:
(setq ss1 (ssget        "x"        '((0 . "TEXT") (8 . "1000"))))         
后面的可行
其他参数可参考 cad的帮助文件。
回复

使用道具 举报

6

主题

412

帖子

8

银币

后起之秀

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

铜币
436
发表于 2004-2-20 12:58:00 | 显示全部楼层
(setq ss (ssget "x" '((0 . "TEXT")(8 . "1000")))) 不好意思,和樓上重覆了,此帖在短短時間有6百多人閱讀,實在不可思議
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-8 23:00 , Processed in 0.485823 second(s), 63 queries .

© 2020-2025 乐筑天下

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