Chuyển đến nội dung
Diễn đàn CADViet

hanh.phuc

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    14

  • Đã tham gia

  • Lần ghé thăm cuối

  • Ngày trúng

    2

Bài đăng được đăng bởi hanh.phuc

  3. Đã đăng · Trả lời báo cáo

    10 giờ trước, NTHAHT đã nói:

    You load it into cad and look under the command line (or F2).

     

    "C: KTTD"

    Nếu chỉ có một 'defun c: '

     

     

    Nếu nhiều hơn một 'defun c: '

    200606 fascheck.LSP
     

    test 

    Command: (fascheck)

C:\Users\HP\Desktop\test fas\OFFM.fas 
C:BM2000 
C:BM1800 
C:BM2350 
C:OLY 
C:OFFM 
C:OXGRID



Command: (fascheck) 
C:\Users\HP\Desktop\test fas\Chay nguoc bang toa do.fas 
C:KTTD

    khác, nếu bạn quan tâm ? 

    VCIRCLE_KT 
VTEXT_KT 
ZOOM_LIST_POINT 
KT_BANGTOADO 
CHON_BANGTOADO

     

     

     

     

     

     

    p / s: Nó chỉ tải tạm thời nhưng không chạy nó

    Bạn phải APPLOAD tập tin sau khi hoàn thành

  5. Đã đăng · Trả lời báo cáo

    This is not valid
    Set acadArc = acadDoc.ModelSpace.AddArc (Diem_dau, Diem_cuoi, 90)

    You need to calculate Center Radius
    Set acadArc = acadDoc.ModelSpace.AddArc ( Center, Radius, StartAngle, EndAngle )

    or 

    to create a line (Lwpolyline) with Diem_dau Diem_cuoi

    plineObj.SetBulge 0, 0.5 '0.5 la bulge
    plineObj.Update value


    p / s: Using LISP is easier

    http://www.lee-mac.com/bulgeconversion.html

    Bulge2Arc.png

  8. Đã đăng · Trả lời báo cáo 

    (defun c:tt (/ *error* foo ss fn f a b l ls l1 lst); 

 
  (defun *error* (msg) 
    (if (and f (= (type f) 'FILE)) 
      (close f) 
      (setq f nil)
      ) 
    ) 
  
  (and (setq foo '((a b) (cdr (assoc a (entget b))))  
             ss (ssget' ((0 . "TEXT"))) 
             )) 
       (setq l (vl-remove-if 'listp) (mapcar 'cadr (ssnamex ss)))); (acet-ss-to-list ss) 
       (setq fuzz (* 0.25 (foo 40 (car l))) 
             ls (mapcar '(lambda (x) (cons (foo 1 x) (foo 10 x))) l) 
             ) 
       (setq fn (strcat (getvar 'tempprefix ) "copytext.txt" ))
       (setq f (open fn "w"))) 
       (setq l nil 
             sl (vl-sort ls 
                         '(lambda ( a  b ) 
                            ( if 
                             (equal (caddr a) (caddr b) fuzz) 
                             (<(cadr a) (cadr b))
                             (<(caddr a) (caddr b)) 
                             ) 
                            ) 
                         )

             a (caddar sl) 
             )

       (foreach x sl 
         (if (equal a (setq b (caddr x)) fuzz) 
           (setq l1 (cons x l1) 
                 a b 
                 ) 
           (setq l1 ( vl-list*  x nil l1)) 
           ) 
         (setq a b) 
         ); _ end of foreach 
       (foreach x (progn (foreach x l1 
                           (if x 
                             (setq l (cons xl))) 
                             (setq lst (cons l lst) 
                                   l nil 
                                   ) 
                             ) 
                           )) 
                         (setq lst (cons l lst))
                         (reverse (vl-remove nil lst)) 
                         ); progn 
         (write-line (apply 'strcat (mapcar '(lambda (x) (strcat x "\t"))) (mapcar 'car x))) f) 
         ) 
       (progn (if f 
                (close f) 
                ) 
              (vl-cmdf "_erase" ss "") 
       (startapp "notepad" fn) 
;;; (vl-cmdf "_.SHELL" (strcat "CLIP <" fn)) 
;;; (alert " Try [Ctrl ^C] or paste clipboard in the dwg! ") 
              ) 
       ); 
  (princ)
  )

    mt2.gif.f557a5573a283d2d2cd6579b8443597d.gif

     

    1.notepad copy [Ctrl+C] 

    2.Acad paste [Ctrl+V]

    3.Edit Mtext [Tab->]

  9. Đã đăng · Trả lời báo cáo 

    (defun c:ccd ( / bo bn )
  (setq bn "CD4H")
  (if (and c:kb (tblsearch "BLOCK" bn ))
  (while (setq dchon (getpoint "\nSpecify point: "))
    (setq cddc (+ cdg (/ (- (cadr dchon) (cadr dgoc)) tyle)))
    (and (setq bo (vla-InsertBlock
               (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
               (vlax-3d-point (trans dchon 1 0))
               bn 1.0 1.0 1.0 0.0
               )
          )
    (vlax-get-property bo 'hasAttributes)
    (mapcar '(lambda (a b) (and a b (vla-put-textstring a b))) (vlax-invoke bo 'GetAttributes) (list (rtos cddc 2 tp) ))
         )
    )
    (alert "\nKhông có gì block \"CD4H\", or KB.lsp not loaded!")
  )
  (princ)
  )

     

  14. Đã đăng · Trả lời báo cáo

    oh, tuyệt vời quá anh Ket ạ mặc dù có 1 vài số thứ tự chưa được vào tâm nhưng như vậy cùng là tốt rồi. cảm ơn anh rất nhiều!

    thay thế (defun _cen ...... )

    ----------------------------------

    

    
(defun _cen (e)
    

    
((lambda (lst /)
    

    
(mapcar ''(( c ) (/ c (length lst)))
    

    
('((lst / ans l)
    

    
(setq v (car lst) l (cdr lst))
    

    
(while l (setq v (mapcar ''((a B) (float (+ a B))) v (car l)) l (cdr l)))
    

    
v ) lst)) ;_ end of mapcar
    

    
) ;_ end of lambda
    

    
(mapcar 'cdr (vl-remove-if-not ''((x) (= (car x) 10)) (entget e))
    

    
) ;_ end of mapcar
    

    
) ; load
    

    
) ;_ end of defun
    

    


    

						
    
						
							
    
								

	
    	
		
    
			
				
				
    
					
						

	
	
      
	
		
			
			
    • 
				
					
				
						
							Vote tăng
						
						
							2
						
				
					
				
			
      • 
		
	
	
    


    
	
	

    
					
				
    
			
			
			
		
    
	
    

							
    
						
					
    
				
    			
			
    
		
    
	
    15. 

			

		

	
	




			

		


	




						


					

					


					

				

			

			
		

		
		


	×