Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
9 replies to this topic

#1 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 16 September 2013 - 10:28 PM

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.c...eo-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))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;     

 


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 16 September 2013 - 10:54 PM

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

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 16 September 2013 - 11:01 PM

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


  • 0

#4 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 17 September 2013 - 08:12 AM

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))

  • 0

#5 xuanacker

xuanacker

    biết vẽ circle

  • Members
  • PipPip
  • 30 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 17 September 2013 - 09:49 AM

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


  • 0
xuanacker

#6 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 17 September 2013 - 10:39 AM

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.


  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 17 September 2013 - 02:02 PM

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 ạ.


  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 17 September 2013 - 02:45 PM

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 


  • 0

#9 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 17 September 2013 - 05:26 PM

- 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)
  )

  • 1

#10 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 September 2013 - 10:11 AM

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.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.