Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
huunhantvxdts

[Hỏi] Mã dfx của text

Các bài được khuyến nghị

Tôi đang viết lisp xử lý text có 1 vướng mắc chưa hiểu mong mọi người giúp đỡ

Lisp thứ 1 

Tính tổng các text chọn trên màn hình thay vào 1 text đã có trên màn hình text kết quả tự đổi màu (nhằm kiểm soát việc tính toán)

vướng mắc là nếu text chọn để thay kết quả vơi màu của text không phải màu layer thì kết quả đúng ý muốn, còn ngược lại màu text là màu layer thì kết quả vẫn đúng nhưng text không đổi màu. qua tìm hiểu tối thấy 

text có màu không phải màu layer có thêm mã dfx 62

text có màu là màu layer không có mã dfx 62

đây là lisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun c:ccc ()
(CONG))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Defun cong ()
(princ "\nNguyen Huu Nhan - Quang Binh")
(setq oldos (getvar "OSMODE")) 
 (setq SUMb 0)
 (Princ "\nHay chon cac so can cong :")
 (setq SS (ssget '((0 . "TEXT"))))
 (setq i 0)
 (setq N (sslength ss))
 (while (< i N)
   (setq DT (ssname SS i))
   (setq DT (entget DT))
   (setq TEXT (cdr (assoc 1 DT)))
   (setq SUM1 (atof TEXT)) 
   (setq SUMb (+ SUMb (* SUM1 1)))
   (setq i (1+ i))
 )
  ;(luuos)
  (setvar "osmode" 0)
(setq giatriold (entsel "\nGia tri can thay the"))
	(while
 	 (or
   	 (null giatriold)
   	 (/= "TEXT" (cdr (assoc 0 (entget (car giatriold)))))
	 )
	(princ "\nDoi tuong khong phai la text! Chon lai")
 	(setq giatriold (entsel "\nGia tri can thay the"))
	)
(setq thongtin (entget (car giatriold)))
(setq giatricu (assoc 1 thongtin))
(setq giatrimoi (cons 1 (rtos SUMb 2 2)))
(setq thongtin (subst giatrimoi giatricu thongtin))
(setq thongtin (subst (cons 62 3) (assoc 62 thongtin) thongtin))
(entmod thongtin)
(setvar "MODEMACRO" "**Phong Tu Van Giao Thong II** huunhanltqb@yahoo.com")
(setvar "osmode" oldos)
(Princ)
) 

Nhờ mọi người ai biết sửa giúp. rất cám ơn

Lisp thứ 2

Lisp thay đổi điểm đặt của text  (thay đổi mã dfx 11) lisp này cũng vướng mắc là nếu các mã dfx 71,72,73 khác 0 thì text thay đổi vị trí còn ngược lại thì không. mọi người có thể cho tôi biết khi nào là mã dfx 71,72,73 khác 0 và ai biết có thể sửa lisp này cho tôi.

Mục đích lisp này là Cho 1 đường Pl (tim tuyến) và 1 tập text (tên cọc)  sau khi chọn tên cọc chọn pl định hướng các text này sẽ xoay theo hướng PL đồng thời di chuyển đến gần đường PL 1 khoảng cách nhập vào

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/69045-nho-chinh-sua-lisp-xoay-text-theo-pline/page-2
(defun c:xotxt ();(/ oldos sst pl obj p0 par pa1 pa2 pa3 etxt)
(vl-load-com)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(command "undo" "be")
(alert "Chon tap hop text can xoay")
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(setq pl (car (entsel "\n Chon polyline dinh huong")))
(setq k (getreal "\n Nhap khoang cach move: ")) 
(setq obj (vlax-ename->vla-object pl))
(foreach txt sst
(setq p0 (if (or (/= (cdr (assoc 72 (setq etxt (entget txt)))) 0) (/= (cdr (assoc 73 etxt)) 0)) 
(vlax-curve-getclosestpointto obj (cdr (assoc 11 etxt)) T)                   
(vlax-curve-getclosestpointto obj (cdr (assoc 10 etxt)) T))       
par (vlax-curve-getparamatpoint obj p0)        
pa1 (vlax-curve-getpointatparam obj (fix par))        
pa2 (vlax-curve-getpointatparam obj  par))
(if (not (equal pa1 pa2 0.000001))        
(setq goc (angle pa1 pa2))        
(if (setq pa3 (vlax-curve-getpointatparam obj (1+ par)))            
(setq goc (angle pa1 pa3))            
(setq goc (+ pi (angle pa1 (vlax-curve-getpointatparam obj (1- par)))))))
(setq etxt (subst (cons 50 goc) (assoc 50 etxt) etxt))
(setq kt (cdr (assoc 72 etxt)))
(setq p (if (or (/= (cdr (assoc 72 etxt)) 0) (/= (cdr (assoc 73 etxt)) 0))
                        (cdr (assoc 11 etxt)) (cdr (assoc 10 etxt))))
(setq gocch (+ goc (/ pi 2)))
(setq pc (polar p gocch k))
(setq etxt (subst (cons 11 pc) (assoc 11 etxt) etxt))
(entmod etxt))
(command "undo" "e")
(setvar "osmode" oldos)
(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;     

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.676

1). Khi màu là bylayer thì nó là 256.

2). Tham khảo:

(defun GetTextInsertion(elist)

 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)

  (cdr (assoc 10 elist))

  (cdr (assoc 11 elist))))

;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
 
;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
 
;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

1). Khi màu là bylayer thì nó là 256.

2). Tham khảo:

(defun GetTextInsertion(elist)

 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)

  (cdr (assoc 10 elist))

  (cdr (assoc 11 elist))))

;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
 
;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
 
;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))

Cam ơn bạn để mình sửa lại

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

1). Khi màu là bylayer thì nó là 256.

2). Tham khảo:

(defun GetTextInsertion(elist)

 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)

  (cdr (assoc 10 elist))

  (cdr (assoc 11 elist))))

;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
 
;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))
 
;----- LÊy vµ ®Æt ®iÓm ch̀n cña *Text.
(defun GetTextInsertion(elist)
 (if (= (+ (cdr (assoc 72 elist)) (cdr (assoc 73 elist))) 0)
  (cdr (assoc 10 elist))
  (cdr (assoc 11 elist))))

1. Không tìm thấy mã DFX 256

đây là thông tin đối tượng mình lấy được khi màu là màu layer

 

Command: !thongtin

((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5

. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich")

(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80")

(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32

-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

 

2. Làm sao xác định 1 điểm nằm phía bên trái hay bên phải của đường pl

Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Anh ơi cách viết list như thế nào vậy có thể bảo e được không

Câu hỏi hơi khó trả lời

phải học thôi, có lớp học online đó

còn theo như mình thì mình lấy những đoạn lisp ở trên diễn đàn rồi học từ từ, mà chủ yếu là ý tưởng thôi còn lisp thì lấy từ diễn đàn về rồi xào nấu lại theo ý tưởng của mình. cứ viết đi sai đâu hỏi đó là viết được

mà nói quá để học được (tự học đó) phải có 1 ít kiến thức cơ bản về lập trình.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

 

1. Không tìm thấy mã DFX 256

đây là thông tin đối tượng mình lấy được khi màu là màu layer

 

Command: !thongtin

((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5

. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich")

(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80")

(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32

-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

 

2. Làm sao xác định 1 điểm nằm phía bên trái hay bên phải của đường pl

Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
 
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
Command: !thongtin
 
Reset Vars @Ketxu - sanit.vn - xaydungit.vn - cadviet.com đã được kích hoạt !
((-1 . <Entity name: 7ede6880>) (0 . "TEXT") (330 . <Entity name: 7efd0cf8>) (5 
. "17BB70") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "diendientich") 
(370 . 5) (100 . "AcDbText") (10 5233.78 -1732.97 0.0) (40 . 0.5) (1 . "12.80") 
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "CHUSO") (71 . 0) (72 . 2) (11 5235.32 
-1732.97 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

Hề hề hề,

Mã màu của đối tượng dược quy định bởi mã dxf 62. Còn 256 là giá trị của mã chứ không phải là mã.

Tỷ như bạn muốn đối tượng có màu của layer thì bân có thể cho nó mã dxf 62 là 256 . Tức là (62 . 256)

Trong nhiều trường hợp, khi đối tượng có màu trùng với màu của layer thì khi bạn lấy mã dxf của đối tượng sẽ không có giá trị của mã dxf 62 như bạn đã thấy. vì nó được ngầm hiểu rằng mã này là 256.

Để đổi màu cho đối tượng này, thay vì bạn sử dụng hàm (subst .....) bạn hãy dùng hàm ( cons ....) để thêm mã này vào list mã dxf của đối tượng.

Để xác định điểm nằm bên trái hay bên phải của pline, bạn cần xác định được vecto tờ điểm đó tới điểm gần nhất với điểm đó trên pline. Sau đó căn cứ vào véc to định hướng của pline để xác định bạn ạ.

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề,

Mã màu của đối tượng dược quy định bởi mã dxf 62. Còn 256 là giá trị của mã chứ không phải là mã.

Tỷ như bạn muốn đối tượng có màu của layer thì bân có thể cho nó mã dxf 62 là 256 . Tức là (62 . 256)

Trong nhiều trường hợp, khi đối tượng có màu trùng với màu của layer thì khi bạn lấy mã dxf của đối tượng sẽ không có giá trị của mã dxf 62 như bạn đã thấy. vì nó được ngầm hiểu rằng mã này là 256.

Để đổi màu cho đối tượng này, thay vì bạn sử dụng hàm (subst .....) bạn hãy dùng hàm ( cons ....) để thêm mã này vào list mã dxf của đối tượng.

Để xác định điểm nằm bên trái hay bên phải của pline, bạn cần xác định được vecto tờ điểm đó tới điểm gần nhất với điểm đó trên pline. Sau đó căn cứ vào véc to định hướng của pline để xác định bạn ạ.

1. đã hiểu vấn đề màu 

2.Chưa hiểu được vấn đề vecto bạn có thể cho ví dụ thì tốt hơn 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
KangKung    229

- A và B là 2 điểm trên đường Polyline.
- P là điểm cần xác định.
Lisp xác định vị trí điểm P so với đường Polyline nối từ A đến B.

(defun C:test( / A B P kt)
  (setq A(getpoint "\n Chon diem thu nhat tren Polyline: "))
  (setq B(getpoint "\n Chon diem thu hai tren Polyline: "))
  (setq P(getpoint "\n Chon diem can kiem tra:"))
  (setq kt(sin (- (angle A P) (angle A B))))
  (cond
    ((= kt 0) (princ "\nTren duong"))
    ((< kt 0) (princ "\nBen PHAI duong"))
    ((> kt 0) (princ "\nBen TRAI duong")))
  (princ)
  )
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

1. đã hiểu vấn đề màu 

2.Chưa hiểu được vấn đề vecto bạn có thể cho ví dụ thì tốt hơn 

Hề hề hề,

Thú thực là mình cũng không hiểu bạn hỏi gì nữa....

Bạn không hiểu khái niệm vecto hay vecto định hướng của pline???

Khái niệm về vecto thì nếu mình không nhớ nhầm đã có từ thời phổ thông.

Khái niệm về vecto định hướng của pline thì cũng đã có từ thời phổ thông nhưng có lẽ nhiều người không nhớ rõ vecto định hướng của pline tại mỗi điểm trên pline đó chính là vécto đơn vị đặt tại điểm đang xét và hợp với trục hoành một góc a với tan a = đạo hàm bậc nhất của pline tại điểm đang xét.

trong lisp đã có các hàm (vlax-curve-getFirstDeriv .....) để lấy giá trị này

và hàm (vlax-curve-getclosestpointto ....) để tìm điểm gần nhất trên pline với điểm đã cho. Từ đó dễ dẫng định được vecto từ điểm đả cho tới điểm gần nhất này.

Có hai vec tơ bạn dễ dàng xác định được góc giữa chúng và suy ra nó là bên phải hay bên trái.

Lisp của bác KangKung là một ví dụ nhưng bạn lưu ý đây là xét theo vecto AB chứ chưa phải xét theo pline vì có thể vecto AB ngược chiều với vecto định hướng của pline. 

Vì bạn dăng học viết lisp nên mình chỉ nói như vậy để bạn tự làm. nếu thấy có gì chưa rõ cứ post lên.

Chúc bạn thành công.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×