设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
楼主: xyp1964

[程序发布] [分享]:【实用程序汇总】test000系列!

  [复制链接]

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-18 22:07:36 | 显示全部楼层

(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

该用户从未签到

发表于 2005-2-19 21:03:25 | 显示全部楼层
谢谢你楼主:能否解释你的第三个程序“改字母大小写(包括子程序)”每段后面给个详细的说明,我看得吃力。(特别是子程序ukword)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2005-2-19 21:41:08 | 显示全部楼层
最初由 xyp1964 发布
[B](ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))) [/B]

1>要如‘ssx,根据所选的对象过滤;且要可根据多次所选过滤
2>过滤中需反映对象的color和Linetype
3>执行后,同时激活。
这时,输:copy(或move、或erase、或mirror、或rotate...)即可工作
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-20 10:02:47 | 显示全部楼层
[php]
(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")(62 . 1) (6 . "CENTER")))
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2005-2-20 20:46:25 | 显示全部楼层
你的第65程序中的“(polar pt0 (* pi 0.75) (* sc 200))” 其中SC跟高度有什么关系?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-20 21:11:06 | 显示全部楼层
test065中少了一句 (setbl)
sc变量通常为1,是比例scale的意思,它与出图比例有关,如果按1:100出图,sc就等于1;如果按1:200出图,sc就等于2……
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2005-2-22 17:30:29 | 显示全部楼层
最初由 xyp1964 发布
[B][php]
(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")(62 . 1) (6 . "CENTER")))
[/php] [/B]

好象过滤的是实体名CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC且color为1且线型为center的实体,,好象也只是该类实体
以下传的ssx.lsp,
1>只能过滤一次,怎样将它改为可多次过滤
2>ssx是对全图过滤;如对选择范围过滤,就先将"x"去掉改程序后存为另一程序.请高手帮忙!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-22 17:44:21 | 显示全部楼层
请解释:“多重实体过滤”的意思。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2005-2-22 17:56:20 | 显示全部楼层
如果1>选dim实体,就选中的dim对全图(或所选范围)过滤,这是一重
2>选dim实体,又选line,或选不同层的dim实体...,选完后再对全图(或所选范围)过滤,这就是我说的多重
与几次用ssx分别过滤的选集组成合集效果相同,但须加亮变虚待选
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-22 18:11:56 | 显示全部楼层
仅仅是选择实体没有问题,如果还要带层、颜色、长度……就麻烦了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2005-2-22 19:51:59 | 显示全部楼层
需要Layer、color、Linetype,请看一下附件ssx.lsp,并参照修改
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-22 21:12:33 | 显示全部楼层
[php]
;;;过滤层、色、线型实体
(defun c:test()
  (while(not(setq s1(entsel"\选择物体 : "))))
  (setq s1 (car s1)
        e (entget s1)
        la (dxf 8 e)
        co (dxf 62 e)
        lt(dxf 6 e)
        )  
  (if (and la co lt)
    (setq ss (ssget (list (cons 0 "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")(cons 8 la)(cons 62 co) (cons 6 lt))))
    )
  (princ "!SS")
  (princ)
  )
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

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

使用道具 举报

该用户从未签到

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

使用道具 举报

该用户从未签到

发表于 2005-2-24 22:07:01 | 显示全部楼层
xyp1964 长老:你的test065程序:多义线顶点序号及坐标。其中顶点序号首尾有重复,能否修改一下。
谢谢。
问题一针见血!by xyp1964[/COLOR]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-5-28 16:01 , Processed in 0.594821 second(s), 125 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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