[求助]：选择集！！！！

handonglong

有一个大的选择集(比如为一大圆，选择集用y1表示)，大圆里有一小圆(选择集为y2)能否用lisp语言命令实现大圆减去小圆后的剩余选择集表示y3(y3=y1-y2)？

xyp1964

[php](command "select" y1 "r" y2 "")
(setq y3 (ssget "p"))[/php]

handonglong

按2楼所说：写了一小程序，不过实现不了该功能啊！
(defun y()
    (command  "circle"  (list 500 500) 200)
    (setq  y1 (entlast))
    (command  "circle"  (list 500 500) 100)
    (setq  y2 (entlast))
    (command "select" y1 "r" y2 "")
    (setq y3 (ssget "p"))
  (command "hatch" "u" 45 5 "n" y3 ""）
)
我的目的是对大圆y1减去小圆 后的圆环画剖线，但是结果是对整个大圆画剖线，怎样才能实现对圆环画剖线呢？

martain

真佩服你们！
我怎么就不会呢？
甚至还看不懂你们在讲什么！
头痛！

狂刀

先ｒｅｇｏｎ
再ｓｕｂ大圆减去小圆

xyp1964

最初由 handonglong 发布
[B]按2楼所说：写了一小程序，不过实现不了该功能啊！
(defun y()
    (command  "circle"  (list 500 500) 200)
    (setq  y1 (entlast))
    (command  "circle"  (list 500 500) 100)
    (setq  y2 (entlast)... [/B]

概念有错误，对hatch命令可以参考帮助文件。
[php]
(defun c:test ()
  (command "circle" (list 500 500) 200)
  (setq y1 (entlast))
  (command "circle" (list 500 500) 100)
  (setq y2 (entlast))
  (setvar"hpname""u,n")
  (command "hatch" "" 45 5 "n" y1 y2 "")
  (princ)
)[/php]

handonglong

如果是大圆（y1）减去两小圆(y2 ,y2)后画剖线又当如何？
(defun c:test ()
  (command "circle" (list 500 500) 400)
  (setq y1 (entlast))
  (command "circle" (list 400 400) 100)
  (setq y2 (entlast))
  (command "circle" (list 600 600) 100)
  (setq y3 (entlast))
;;;;下面程序该如何写呢？
  (princ)
)

xyp1964

[php]
(defun c:test1 ()
  (command "circle" (list 500 500) 200)
  (setq y1 (entlast))
  (command "circle" (list 500 500) 100)
  (setq y2 (entlast))
  (command "circle" (list 600 600) 100)
  (setq y3 (entlast))
  (setvar"hpname""u,n")
  (command "hatch" "" 45 5 "n" y1 y2 y3"")
  (princ)
)[/php]

xyp1964

[php]
(defun c:test2 ()
  (command "circle" (list 500 500) 200)
  (setq y1 (entlast))
  (command "circle" (list 500 500) 100)
  (setq y2 (entlast))
  (command "circle" (list 600 600) 100)
  (setq y3 (entlast))
  (setvar"hpname""u,i")
  (command "hatch" "" 45 5 "n" y1 y2 y3"")
  (princ)
)[/php]

handonglong

现我要求再大正方形中对一部分画剖线，程序如下：
(defun c:test ()
;；；；画正方形
（command "layer" "m" "0 ""c" white" "0" "l" "continuous" "0" "")
  (command "line" (list 100 100) (list 100 500) "")
  (setq y1 (entlast)) 　　　；；；选择一边，后面画剖线需用到
command "line" (list 100 500) (list 500 500) "")
command "line" (list 500 500) (list 100 500) "")
command "line" (list 100 500) (list 100 100) "")
(setq ss0 (ssget "x" (list (cons 8 "0"))));;;;;;;;;选择０层
（command "layer" "m" "1 ""c" white" "1" "l" "continuous" "1" "")
command "line" (list 100 100) (list 200 200) "")
command "line" (list 200 200) (list 400 200) "")
command "line" (list 400 200) (list 400 400) "")
command "line" (list 400 400) (list 200 400) "")
command "line" (list 200 400) (list 100 500) "")
setq ss1 (ssget "x" (list (cons 8 "1"))));;;;;;;;;选择1层
；；；；
如何选择１层ss1和０层上的一直线y1组成ss，然后将正方形ss0减去ss后画剖线，这段程序请帮完成！
；；；；；；；
  (setvar"hpname""u,n")
  (command "hatch" "" 45 5 "n" ss0 ss"")
  (princ)
)

xyp1964

最初由 handonglong 发布
[B]现我要求再大正方形中对一部分画剖线，程序如下：
(defun c:test ()
;；；；画正方形
（command "layer" "m" "0 ""c" white" "0" "l" "continuous" "0" "")
  (command "line" (list 100 100) (list 100 500) "... [/B]

上面程序错误太多！
对hatch命令的概念也不清楚。
建议用Vlsual lisp编辑器。
尽量不要用(ssget "x"…… 这种方式。
[php]
(defun c:test ()
  (setvar "cmdecho" 0)
  (setvar "plinewid" 0)
                                        ;(cmdla0)
                                        ;0层外框（正方形）
  (command "layer" "m" "0" "c" "2" "0" "l" "continuous"        "0" "")
                                        ;(mkla "外框" 2)
  (command "RECTANG" (list 100 100) (list 500 500))
  (setq y1 (entlast))
                                        ;1层内框
  (command "layer" "m" "1" "c" "1" "1" "l" "continuous"        "1" "")
                                        ;(mkla "内框" 1)
  (command "pline"
           (list 100 100)
           (list 200 200)
           (list 400 200)
           (list 400 400)
           (list 200 400)
           (list 100 500)
           "c"
  )
  (setq y2 (entlast))
  (setvar "hpname" "u,n")
                                        ;(mkla "填充" 3)
                                        ;3层填充
  (command "layer" "m" "3" "c" "3" "3" "l" "continuous"        "3" "")
  (command "ucs" "n" (list 100 100))
  (command "hatch" "" 45 10 "n" y1 y2 "")
  (command "ucs" "")
                                        ;(cmdla1)
  (princ)
)[/php]

handonglong

THANK 斑竹！