明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: shopping200

[提问] 选中圆,按直径大小替换成块,自己画的圆可以替换,3D转的圆不能替换

[复制链接]
 楼主| 发表于 2018-1-20 15:19:39 | 显示全部楼层
bssurvey 发表于 2018-1-19 13:19
(defun c:THY ()
   (princ "\n根據圓直徑替換成塊: ")
   (if (setq ss (ssget '((0 . "circle"))))

还不错,改下容差
(defun c:THY ()
   (princ "\n根據圓直徑替換成塊: ")
   (if (setq ss (ssget '((0 . "circle"))))
     (progn
       (setq i        -1
             ss1        (ssadd)
       )
       (while (setq s1 (ssname ss (setq i (1+ i))))
         (setq ent (entget s1)
               pt  (cdr (assoc 10 ent))
               rr  (cdr (assoc 40 ent))
         )
         (cond ((= (rtos rr 2 2) "3")
                (command "insert" "LSPD6" pt 1 1 0)
                (ssadd s1 ss1)
               )
               ((= (rtos rr 2 2) "4")
                (command "insert" "LSPD8" pt 1 1 0)
                (ssadd s1 ss1)
               )
               ((= (rtos rr 2 0) "5")
                (command "insert" "LSPD10" pt 1 1 0)
                (ssadd s1 ss1)
               )
               ((= (rtos rr 2 2) "6")
                (command "insert" "LSPD12" pt 1 1 0)
                (ssadd s1 ss1)
               )
               ((= (rtos rr 2 2) "8")
                (command "insert" "LSPD16" pt 1 1 0)
                (ssadd s1 ss1)
               )
               ((= (rtos rr 2 2) "10")
                (command "insert" "LSPD20" pt 1 1 0)
                (ssadd s1 ss1)
               )
         )
       )
       (command "erase" ss1 "")
     )
   )
   (princ)
)
回复

使用道具 举报

发表于 2018-1-20 17:00:33 | 显示全部楼层
越来越强大
回复

使用道具 举报

发表于 2018-1-22 16:31:49 | 显示全部楼层
非常好!!
回复

使用道具 举报

 楼主| 发表于 2018-1-25 09:56:30 | 显示全部楼层
bssurvey 发表于 2018-1-19 13:19
(defun c:THY ()
   (princ "\n根據圓直徑替換成塊: ")
   (if (setq ss (ssget '((0 . "circle"))))

怎么加上一段线形过滤,rr=3且线形为虚线任意一种才替换(or  (= "HIDDEN" LTY1)
                                                                           (= "HIDDEN2" LTY1)
                                                                     (= "HIDDENX2" LTY1)
                                                                      (= "DASHED" LTY1)
                                                                   (= "DASHED2" LTY1)
                                                                    (= "DASHEDX2" LTY1)))
谢谢
回复

使用道具 举报

发表于 2018-1-25 10:50:12 | 显示全部楼层
本帖最后由 bssurvey 于 2018-1-25 13:39 编辑
shopping200 发表于 2018-1-25 09:56
怎么加上一段线形过滤,rr=3且线形为虚线任意一种才替换(or  (= "HIDDEN" LTY1)
                                                   ...

(defun c:THY ()




   (setvar "CMDECHO" 0) ;如果程序測試沒問題,可以加上這個,這樣命令列就不會出現執行的過程,但最後要還原回來(setvar "CMDECHO" 1)。

   (princ "\n根據圓直徑替換成塊: ")       ;如果在ssget後面加"x" 這一列就不用了         
   (if (setq ss (ssget '((0 . "circle"))))     ; 也可以批量做,不用點選,(setq ss (ssget "x" '((0 . "circle"))))  只要在ssget後面加"x"就可以了
     (progn                                          
       (setq i        -1                              
             ss1        (ssadd)                       
       )                                             
       (while (setq s1 (ssname ss (setq i (1+ i))))   
         (setq ent (entget s1)                        
               pt  (cdr (assoc 10 ent))               
               rr  (cdr (assoc 40 ent))               
               lty1(cdr (assoc 6 ent))     ;加這一列           
         )                                            
         (cond ((and (>= rr 3)(< rr 4)         ;如果要容差應該這麼寫     因為RTOS 轉換後,比對要完全符合才可以  
                     (or  (= "HIDDEN" LTY1)           
                          (= "HIDDEN2" LTY1)         
                          (= "HIDDENX2" LTY1)         
                          (= "DASHED" LTY1)           
                          (= "DASHED2" LTY1)         
                          (= "DASHEDX2" LTY1)         
                     )                                
                )                                    
                (command "insert" "LSPD6" pt 1 1 0)   
                (ssadd s1 ss1)                        
               )                                      
               ((and (>= rr 4)(< rr 5))               
                (command "insert" "LSPD8" pt 1 1 0)   
                (ssadd s1 ss1)                        
               )                                      
               ((and (>= rr 5)(< rr 6))               
                (command "insert" "LSPD10" pt 1 1 0)  
                (ssadd s1 ss1)                        
               )                                      
               ((and (>= rr 6)(< rr 7))               
                (command "insert" "LSPD12" pt 1 1 0)  
                (ssadd s1 ss1)                        
               )                                      
               ((and (>= rr 7)(< rr 8))               
                (command "insert" "LSPD16" pt 1 1 0)  
                (ssadd s1 ss1)                        
               )                                      
               ((and (>= rr 8)(< rr 9))               
                (command "insert" "LSPD20" pt 1 1 0)  
                (ssadd s1 ss1)                        
               )                                      
         )                                            
       )                                             
       (command "erase" ss1 "")                       
     )                                                
   )     

   (setvar "CMDECHO" 1)                                             
   (princ)                                            
)                                                   
                                 

回复

使用道具 举报

发表于 2018-1-25 15:55:57 | 显示全部楼层
学习一下下
回复

使用道具 举报

 楼主| 发表于 2018-1-25 16:00:36 | 显示全部楼层

太感谢了。
回复

使用道具 举报

 楼主| 发表于 2018-1-25 17:17:45 | 显示全部楼层

    ;为什么对BYBLOCK  CONTINUOUS不管用呢?
  (cond ((and (>= rr 2.999)(< rr 3.001)   
                     (or  (= "HIDDEN" LTY1)           
                          (= "HIDDEN2" LTY1)         
                          (= "HIDDENX2" LTY1)         
                          (= "DASHED" LTY1)           
                          (= "DASHED2" LTY1)         
                          (= "DASHEDX2" LTY1)         
                     )                                
                )                                    
                (command "insert" "XLV6" pt 1 1 0)   
                (ssadd s1 ss1)                        
               )
               ((and (>= rr 2.999)(< rr 3.001)   
                     (or  (= "BYBLOCK" LTY1)           
                          (= "CONTINUOUS" LTY1)         
                     )                                
               )                                    
                (command "insert" "XLW6" pt 1 1 0)   
                (ssadd s1 ss1)                        
               )
回复

使用道具 举报

发表于 2018-1-25 17:46:22 | 显示全部楼层
shopping200 发表于 2018-1-25 17:17
;为什么对BYBLOCK  CONTINUOUS不管用呢?
  (cond ((and (>= rr 2.999)(< rr 3.001)   
          ...

字串比對時大小寫有區分 "Continuous" "ByBlock"
回复

使用道具 举报

发表于 2018-2-28 06:53:02 来自手机 | 显示全部楼层
虽然看不太懂,慢慢学习了
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 15:10 , Processed in 0.554997 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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