社区 › Auto Lisp › 在编程上是可能的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

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

(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

 
我不想对塔瓦有任何不尊重。我认为他想要代码来实现这一点。。
 
但是干得好！！
 
(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