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

Demenzizu

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

  • Số lượng nội dung

    12

  • Đã tham gia

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

Bài đăng được đăng bởi Demenzizu

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

    To : khaosat2009

    Bạn khảosát2009 thử xem cái này có đúng ý bạn không

    Bạn chạy thử : 

    (defun c:RFT(/ data f h line pt pXY spc str ten val);Read File Txt
(vl-load-com)
(defun Split (Str Char / Lst pos)
(while (setq pos (vl-string-search Char Str))
(if (null Lst)
(setq Lst (list (substr Str 1 pos)))
(setq Lst (append Lst (list (read (substr Str 1 pos))))))
(setq Str (substr Str (+ pos 2)) ))
(setq Lst (append Lst (list (read Str)))))

(if (setq ten (getfiled "Chon File txt" (getvar "dwgprefix") "txt" 8))
(progn
(or (tblsearch "layer" "Point") (command "-layer" "n" "Point" "") )
(or (tblsearch "layer" "Sothutu") (command "-layer" "n" "Sothutu" "c" 3 "Sothutu" "") )
(or (tblsearch "layer" "Caodo") (command "-layer" "n" "Caodo" "c" 4 "Caodo" "") )
(setq spc (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-Acad-Object))))
;(setq h 2)
(Setq h (getreal"\nChieu cao chu:"))
(if (= nil h)(setq h 2))
(setq kitu nil)
(initget "X Y")
(setq kitu (getkword "\nChon kieu xuat [X hay Y]:"))
(cond
   ((= kitu "X") (setq kitu 0))
   ((= kitu "Y") (setq kitu 1))    
   )
(if (= nil kitu)(setq kitu 0))
;(* (getvar "dimtxt")(getvar "dimscale")))
(setq f (open (findfile ten) "r"))
(while (setq Line (read-line f))
(if (vl-string-search "\t" Line)
(progn
(setq data (split Line "\t" )
val (car data)
pt (cdr data))
(if (not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point pt)))
(progn
;(setq pXY (list (car pt)(cadr pt)))
(if (= 0 kitu)
(setq pXY (list (car pt)(cadr pt)))
)
(if (= 1 kitu)
(setq pXY (list (cadr pt)(car pt)))
)
(vla-put-Layer (vla-addpoint spc (vlax-3d-point pXY)) "Point")
;kkkkkkkkkkkkk
(vla-put-Layer (setq str (vla-addtext spc val (vlax-3d-point pXY) h)) "Sothutu")
(vla-put-Alignment str 8)
(vla-put-TextAlignmentPoint str (vlax-3d-point pXY))
(vla-put-Layer (vla-addtext spc (caddr pt) (vlax-3d-point pXY) h) "Caodo") ))))) ))
(princ))

    • Vote tăng 1

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

    chào các bác các bác giúp em viết lisp

    thứ nhất là:

    trong cad có lênh OFFSET nhưng em muốn OFFSET đối tượng 3dpolyline cũng giống như OFFSET đối tượng 2D về cao độ của 3D là bằng nhau giống như cái 3D ban đầu vì lệnh của cad là không OFFSET được các đối tượng 3D mà phải nhập tọa độ cho chúng mới OFFSET được như vậy thì rất lâu vì bản vã của em có rất nhiều đối tượng 3D

    thứ 2 là :

    em có các đối tượng 2D polyline cần lisp để khi quét qua chúng các đối tượng 2D được chuyển thành 3D và các điểm cắt qua là có cao độ theo hướng mình quét qua và cao độ đó do người dùng nhập vào và cứ mỗi đường cao độ có bước chênh lệch nhau một bước là dellta do người dùng cho

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

    Đây file này các bạn ạ file bị lỗi mình quyên không xem lại http://www.4shared.com/file/YRwTeVPS/inan.html

    các bạn chỉ cần thiết đặt máy in trước khi in và load file inan và sử dụng lệnh inan là được

    trong video chỉ hướng dẫn đến máy in mặc định của cad khi in trực tiếp thì chọn vào phần thiết đặt của máy in đã nối với máy của các bạn

×