在编程上是可能的t

CadFrank · 发表于 2022-7-5 18:44:55

没有编程的最佳选择是选择类似。。否则，我对Autolisp的了解就太深了

CesarA · 发表于 2022-7-5 18:49:21

但是，弗兰克，我之所以把这个贴在节目部分是有原因的，无论如何，谢谢

CadFrank · 发表于 2022-7-5 18:51:58

我想你有一个

没问题没什么帮助

Tharwat · 发表于 2022-7-5 18:52:51

我不需要看。

CesarA · 发表于 2022-7-5 18:57:55

很高兴看到周围有喜剧

CadFrank · 发表于 2022-7-5 19:02:10

如果您想编程，请为一些图案填充和一些多段线寻找一些代码，并将它们混合在一起。学习的最佳方式。。。。或者看看李的Mac代码http://www.lee-mac.com/programs.html

CesarA · 发表于 2022-7-5 19:05:19

我去看看，谢谢

Tharwat · 发表于 2022-7-5 19:08:28

玩一玩这个简单又快速的游戏。

copy


(defun c:test (/ ss i sn)
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (repeat (setq i (sslength ss))
     (if (ssget "_CP"
                       (mapcar 'cdr
                               (vl-remove-if-not
                                 '(lambda (p) (= (car p) 10))
                                 (entget (setq sn (ssname ss (setq i (1- i)))))
                               )
                       )
                       '((0 . "HATCH"))
                     )
       (ssdel sn ss)
     )
   )
 )
 (sssetfirst nil ss)
 (princ)
)

CadFrank · 发表于 2022-7-5 19:11:41

我不想对塔瓦有任何不尊重。我认为他想要代码来实现这一点。。

但是干得好！！

copy

(defun c:test (/ ss i s sn)
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (repeat (setq i (sslength ss))
     (if (setq s
                     (ssget
                       "_CP"
                       (mapcar 'cdr
                               (vl-remove-if-not
                                 '(lambda (p) (= (car p) 10))
                                 (entget (setq sn (ssname ss (setq i (1- i)))))
                               )
                       )
                       '((0 . "HATCH"))
                     )
              )
         
       (ssdel sn ss)
     )
   )
 )
 (sssetfirst nil ss)
 (princ)
)

我刚刚删除了第四行的not

干杯

Tharwat · 发表于 2022-7-5 19:13:23

谢谢你，弗兰克，你说得对。

[编程交流] 在编程上是可能的t

发表回复

精选推荐