Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.



 
Trang ChínhGalleryLatest imagesĐăng kýĐăng Nhập
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Top posters
Admin
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
tvgs
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
HotroAcad
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
ksphanle
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
engineer0405
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
quangthinh01
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
sumakho
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
quoctoa
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
M@trixs
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
tvgtyb08
Lisp copy cao độ - đánh cos Vote_lcapLisp copy cao độ - đánh cos Voting_barLisp copy cao độ - đánh cos Vote_rcap 
Latest topics
» hotroacadv2.09
Lisp copy cao độ - đánh cos Icon_minitimeMon Mar 30, 2015 11:14 pm by ninh621

» Phần mềm san nền + Phân lớp nền đường + Các ứng dụng
Lisp copy cao độ - đánh cos Icon_minitimeMon Oct 06, 2014 8:59 am by tamky

» Bộ cài nova full trên Autocad 2005 và win7
Lisp copy cao độ - đánh cos Icon_minitimeThu Apr 17, 2014 4:29 pm by frowin2013

» Chuyên nhận thi công tiểu cảnh sân vườn
Lisp copy cao độ - đánh cos Icon_minitimeSun Apr 13, 2014 2:45 pm by stingdau

» Phần mềm tổ hợp nội lực từ SAP, ETABS,TK cấu kiện theo TCVN DSAP 2.x
Lisp copy cao độ - đánh cos Icon_minitimeMon Mar 24, 2014 5:49 pm by nha.ksxd

» Ứng dụng HotroAcad hỗ trợ kết cấu xây dựng
Lisp copy cao độ - đánh cos Icon_minitimeFri Mar 21, 2014 1:43 pm by HotroAcad

» Phần mềm soft_xdit thay thế phần mềm hotrocad
Lisp copy cao độ - đánh cos Icon_minitimeWed Mar 12, 2014 2:31 pm by HotroAcad

» lisp Thước lỗ ban
Lisp copy cao độ - đánh cos Icon_minitimeFri Dec 06, 2013 4:06 pm by leminhlapvl

»  MDW - Phần mềm tính toán móng đơn
Lisp copy cao độ - đánh cos Icon_minitimeThu Dec 05, 2013 10:15 am by ngominhha

Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 10 người, vào ngày Mon Nov 07, 2022 3:26 pm
March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search

 

 Lisp copy cao độ - đánh cos

Go down 
Tác giảThông điệp
Admin
Thượng úy
Thượng úy
Admin


Tổng số bài gửi : 103
Điểm : 291
Reputation : 34
Join date : 15/01/2011

Lisp copy cao độ - đánh cos Empty
Bài gửiTiêu đề: Lisp copy cao độ - đánh cos   Lisp copy cao độ - đánh cos Icon_minitimeSun Oct 16, 2011 3:55 pm

Lisp copy cao độ - đánh cos Untitled1-1

Code:
[font=Courier New](defun c:dc (/ lstSS txtstr p1 p2 listname txt txt1 ss)

(vl-load-com)

(defun dowith(lstSS / lstSS en str)

(cond ((setq en (car (vl-remove-if-not '(lambda(x)(wcmatch (cdadr (entget x))"*TEXT")) lstSS)))(setq str (acet-dxf 1 (entget en)) en (vlax-ename->vla-object en)))

((setq en (car (vl-remove-if-not '(lambda(x)(and (wcmatch (cdadr (entget x))"INSERT")(= (acet-dxf 66 (entget x)) 1))) lstSS)))

(setq str (vla-get-textstring (setq en(car (vlax-invoke (vlax-ename->vla-object en) 'GetAttributes)))))

)

)

(cons en str)

)

(grtext -1 "Free lisp from Cadviet @Ketxu")

(setq lstSS (acet-ss-to-list (setq ss (ssget)))

obj (car (setq en (dowith lstSS)))

str (cdr en)

p1 (getpoint "\nBasepoint :")

eL (entlast)

oDz (getvar "Dimzin")

)

(setvar "DIMZIN" 0)

(while (setq p2 (getpoint p1 "\nTo point :"))

(command "copy" ss "" p1 p2)

(while (setq EL (entnext EL)) (setq Listname (cons EL Listname)))

(setq Txt1 (car (dowith listName))

eL (entlast)

)

(vla-put-textstring txt1

(strcat (cond ((> (setq num (+ (atof str) (/ (- (cadr p2)(cadr p1)) 1000))) 0) "+")

((= num 0) "%%p")

(T "")

)

(rtos num 2 3))

)

)

(setvar "DIMZIN" oDZ)

)[/font]

Tác giả : Ketxu
Về Đầu Trang Go down
https://xaydungit.forumvi.com
 
Lisp copy cao độ - đánh cos
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [Lisp]Copy tăng dần
» [Lisp]Vẽ Center Line
» [Sưu tầm]Lisp căn lề chữ
» lisp Thước lỗ ban
» [Lisp]­Vẽ mũi tên 2 chiều

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Phần mềm xây dựng - Giao thông - Hạ tầng kỹ thuật :: Chuyên về lisp [Sưu tầm]-
Chuyển đến