VIETBUDDY CENTER - TRAINING
Chào mừng các bạn đến với http://Vietbuddy Center.forumvi.com
VIETBUDDY CENTER - TRAINING
Chào mừng các bạn đến với http://Vietbuddy Center.forumvi.com
VIETBUDDY CENTER - TRAINING
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.
VIETBUDDY CENTER - TRAINING

SÂN CHƠI CÔNG NGHỆ CỦA KỸ SƯ HẠ TẦNG VIỆT
 
HomeTrang ChínhLatest imagesTìm kiếmĐăng kýĐăng NhậpHelp ADS
Top posters
Admin
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
dxthanh8
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
leduan1982
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
xaydung
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
B_Xuan_Hai
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
dcuong
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
Dao_tac
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
huu luc
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
bimyeu2012
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
tancaox3
Lisp căn lề chữ  Vote_lcapLisp căn lề chữ  Voting_barLisp căn lề chữ  Vote_rcap 
Latest topics
» Chia sẻ Bộ Lisp rất hay: ”Kho báu của Minh”
Lisp căn lề chữ  Icon_minitimeTue Jan 10, 2023 2:06 pm by xuanha

» Ban nick thành viên xaydung hay langtu hay admin của diễn đàn cauduongnet.forumvi.com
Lisp căn lề chữ  Icon_minitimeTue Jan 10, 2023 2:03 pm by xuanha

» Ban nick thành viên
Lisp căn lề chữ  Icon_minitimeTue Jan 10, 2023 2:02 pm by xuanha

» Ma du toan 97 2012
Lisp căn lề chữ  Icon_minitimeWed Dec 30, 2015 7:43 am by ngocdung100789

» Bản vẽ cọc tiêu , biển báo
Lisp căn lề chữ  Icon_minitimeThu Dec 24, 2015 9:49 am by hminh2005

» phần trắc dọc..
Lisp căn lề chữ  Icon_minitimeSun Nov 08, 2015 4:29 pm by Admin

» Cho e hỏi về xuất số liệu tuyến!
Lisp căn lề chữ  Icon_minitimeMon Sep 28, 2015 2:19 pm by Admin

» xin file TCVN 10380:2014
Lisp căn lề chữ  Icon_minitimeTue Sep 22, 2015 9:41 am by anhtrai99

» ADS Civil Pro 5/9/2014
Lisp căn lề chữ  Icon_minitimeSat Sep 19, 2015 12:53 pm by Admin

» Thiết Kế ,Kiểm toán Kết Cấu áo đường
Lisp căn lề chữ  Icon_minitimeThu Sep 03, 2015 4:25 pm by xaobaco

» Bản vẽ thiết kế bằng Drad
Lisp căn lề chữ  Icon_minitimeThu Sep 03, 2015 3:59 pm by xaobaco

» Vẽ phân đoạn hố ga đúc sẵn theo định hình s.gtcc tp.hcm
Lisp căn lề chữ  Icon_minitimeMon Aug 17, 2015 9:07 am by sonmk2008

» Chưa thấy ads road có phần thiết kế nút giao nhỉ.
Lisp căn lề chữ  Icon_minitimeMon Aug 10, 2015 10:57 am by Admin

» Báo giá mới sản phẩm ADS Civil Series 2014
Lisp căn lề chữ  Icon_minitimeSat Aug 01, 2015 5:46 pm by Admin

» Mọi người có video hướng dẫn ốp mái ta luy không cho e xin với ạ!
Lisp căn lề chữ  Icon_minitimeTue Jul 21, 2015 8:24 am by manta

quang cao



March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
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à 11 người, vào ngày Wed Jun 26, 2013 10:02 pm

 

 Lisp căn lề chữ

Go down 
Tác giảThông điệp
afoolman

afoolman


Tổng số bài gửi : 15
Join date : 11/02/2012
Age : 42

Lisp căn lề chữ  Empty
Bài gửiTiêu đề: Lisp căn lề chữ    Lisp căn lề chữ  Icon_minitimeTue Feb 14, 2012 12:30 am

Code:
********************CAN DONG TEXT*************************
;Sap xep cac dong text deu nhau theo 1 kieu canh le, lay text goc lam chuan.
(defun c:CLT ( / oldos lst1 ss ki ki0 ki1 ki2 lst ddau dcuoi eget)
(setq oldos (getvar "osmode")) (setvar "osmode" 0)
(prompt "Chon nhom Text: ")
(setq ss (ssget '((0 . "TEXT"))))
(if (not tyledong) (setq tyledong 1.5))
(setq tyledong1 (getreal (strcat "\nVao ty le dong khoang cach dong <" (rtos tyledong 2 2) ">: ")))
(if tyledong1 (setq tyledong tyledong1))
(setq lst1 '(("L" 0 0) ("C" 1 0) ("R" 2 0)))
(initget 1 "C L R")
(setq ki (getkword "Enter an option [Center/Left/Right]: "))
(setq tch (car (entsel "Chon Text chuan: ")))
(if (= 0 (cdr (assoc 72 (entget tch))))
(setq vt (cdr (assoc 10 (entget tch))))
(setq vt (cdr (assoc 11 (entget tch)))))
(setq ki1 (cadr (setq ki0 (assoc ki lst1)))
ki2 (last ki0)
lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
lst (vl-sort lst '(lambda (e1 e2) (> (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2))))))
linespc (* (cdr (assoc 40 (entget (car lst)))) tyledong)
yht (+ (* linespc (- (length lst) (length (member tch lst)) -1)) (cadr vt)))
(command "undo" "begin")
(foreach e lst
(setq eget (entget e)
dtiep (list (car vt) (setq yht (- yht linespc)) 0)
eget (subst (cons 72 ki1) (assoc 72 eget) eget)
eget (subst (cons 73 ki2) (assoc 73 eget) eget)
eget (if (and (zerop ki1) (zerop ki2))
(subst (cons 10 dtiep) (assoc 10 eget) eget)
(subst (cons 11 dtiep) (assoc 11 eget) eget)))
(entmod eget))
(command "undo" "end")
(setvar "osmode" oldos)
(princ))
Về Đầu Trang Go down
 
Lisp căn lề chữ
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» LISP CAD R14
» Lisp Thống kê thép!
» Chia sẻ Bộ Lisp rất hay: ”Kho báu của Minh”
» Lisp hỗ trợ điền cao độ đường đỏ lên bình đồ trong nova

Permissions in this forum:Bạn không có quyền trả lời bài viết
VIETBUDDY CENTER - TRAINING :: Chuyên mục Diễn Đàn :: Tin học thông dụng :: AutoCAD-
Chuyển đến