[分享]：【实用程序汇总】test000系列！

xyp1964

(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))

xxming

谢谢你楼主：能否解释你的第三个程序“改字母大小写(包括子程序)”每段后面给个详细的说明，我看得吃力。(特别是子程序ukword)

ydf7332462

最初由 xyp1964 发布
[B](ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))) [/B]

1>要如‘ssx,根据所选的对象过滤；且要可根据多次所选过滤
2>过滤中需反映对象的color和Linetype
3>执行后，同时激活。
这时，输：copy(或move、或erase、或mirror、或rotate...)即可工作

xyp1964

[php]
(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")(62 . 1) (6 . "CENTER")))
[/php]

xxming

你的第65程序中的“(polar pt0 (* pi 0.75) (* sc 200))” 其中SC跟高度有什么关系?

xyp1964

test065中少了一句 (setbl)
sc变量通常为1，是比例scale的意思，它与出图比例有关，如果按1：100出图，sc就等于1；如果按1：200出图，sc就等于2……

ydf7332462

最初由 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"去掉改程序后存为另一程序.请高手帮忙!

xyp1964

请解释：“多重实体过滤”的意思。

ydf7332462

如果1>选dim实体,就选中的dim对全图(或所选范围)过滤,这是一重
2>选dim实体,又选line,或选不同层的dim实体...,选完后再对全图(或所选范围)过滤,这就是我说的多重
与几次用ssx分别过滤的选集组成合集效果相同，但须加亮变虚待选

xyp1964

仅仅是选择实体没有问题，如果还要带层、颜色、长度……就麻烦了！

ydf7332462

需要Layer、color、Linetype，请看一下附件ssx.lsp，并参照修改

xyp1964

[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]

huyong

不能下扎test000.lsp呀？

syakiou

可以啊

xxming

xyp1964 长老：你的test065程序:多义线顶点序号及坐标。其中顶点序号首尾有重复，能否修改一下。
谢谢。
问题一针见血！by xyp1964[/COLOR]