Vẽ thang bằng lisp

[Nguyen Hoanh 4.663]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

(defun c:tinhthang()
(defun l2bac(ent)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
)
(list p1 p2)
)
(setq
ssbac (ssget '((0 . "LINE")))
hbac (getdist "\nChieu cao bac")
lstent (ss2ent ssbac)
ttbac (mapcar 'l2bac lstent)
index 0.0
)
(command ".3dmesh")
(command (* 2 (length lstent)) 2)
(foreach pp ttbac
(setq
caoht (* index hbac)
index (+ index 1.0)
p1 (car pp)
p2 (cadr pp)
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
za caoht
zb (+ caoht hbac)
p1a (list x1 y1 za)
p1b (list x1 y1 zb)
p2a (list x2 y2 za)
p2b (list x2 y2 zb)
)
(command p1a p2a p1b p2b)
)
)
(defun ss2ent(ss / sodt index lstent)
(setq
sodt (if ss (sslength ss) 0)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

 

Đầu tiên là mặt bằng của bạn:

 

bạn đổi viewport để xem dạng phối cảnh:

 

dùng lệnh tinhthang để vẽ 3d của bậc thang:

 

dùng lệnh shade để xem thang dạng có diện:

 

Xoay để lấy mặt đứng biên:

 

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

[bemove 1.314]

Rất hay nhưng sao khó sử dụng thế nhỉ. hướng dẫn cụ thể đi bạn ơi

[Nguyen Hoanh 4.663]

Cách sử dụng vô cùng đơn giản.

 

Đây là một thang tròn cần vẽ 3D:

 

1. Sau khi upload file lisp, tại dòng lệnh bạn gõ lệnh tinhthang:

Command: tinhthang (enter)

 

2. Chúng ta sẽ chọn đối tượng line đại diện cho bậc thang:

Select objects: f (f = fence)

First fence point: (bạn pick các điểm để bắt theo lựa chọn fence thứ tự các line đại diện cho bậc thang)

Specify endpoint of line or [undo]:(pick tiếp)

Specify endpoint of line or [undo]:(pick tiếp)

Specify endpoint of line or [undo]:(pick tiếp cho đến khi hoàn tất việc lựa chọn tất cả các line đại diện bậc thang - theo thứ tự)

Select objects: (enter - xong rồi thì gõ enter để kết thúc lệnh chọn thang)

 

3. Nhập chiều cao của thang:

Chieu cao bac 150 (nhập vào chiều cao bậc)

 

Ta sẽ được 3D của thang:

 

Có 2 lưu ý quan trọng:

1. Các bậc của thang phải là đối tượng line

2. khi chọn các bậc thang (các line) phải chọn đối tượng theo thứ tự từ bậc thấp đến bậc cao.

[bemove 1.314]

Với thang tròn thì lisp này làm việc tốt, nhưng với thang vuông nó cứ làm sao ấy :lol:

[xgame 5]

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

Cảm ơn bác đã chia sẻ, nhưng khi em dùng thì gặp lỗi như sau mong bác xem giúp

Command: tinhthang

CADViet.com © 2007

Select objects: f

First fence point:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]:

Specify endpoint of line or [undo]: 9 found

 

Select objects:

Chieu cao bac150

; error: no function definition: SS2ENT

[Nguyen Hoanh 4.663]

Cảm ơn bác đã chia sẻ, nhưng khi em dùng thì gặp lỗi như sau mong bác xem giúp

[/color]

Xin lỗi bạn, đoạn code trên bị lỗi vì thiếu hàm ss2ent. Hàm này là hàm tôi thường dùng, nên tôi quên mất copy nó vào đoạn mã trên.

 

Sau khi bổ sung hàm ss2ent, đoạn mã trên sẽ trở thành:

(defun c:tinhthang()
(defun l2bac(ent)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
)
(list p1 p2)
)
(setq
ssbac (ssget '((0 . "LINE")))
hbac (getdist "\nChieu cao bac")
lstent (ss2ent ssbac)
ttbac (mapcar 'l2bac lstent)
index 0.0
)
(command ".3dmesh")
(command (* 2 (length lstent)) 2)
(foreach pp ttbac
(setq
caoht (* index hbac)
index (+ index 1.0)
p1 (car pp)
p2 (cadr pp)
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
za caoht
zb (+ caoht hbac)
p1a (list x1 y1 za)
p1b (list x1 y1 zb)
p2a (list x2 y2 za)
p2b (list x2 y2 zb)
)
(command p1a p2a p1b p2b)
)
)
(defun ss2ent(ss / sodt index lstent)
(setq
sodt (if ss (sslength ss) 0)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

[tuandh 1]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

(defun c:tinhthang()
 (defun l2bac(ent)
   (setq
     tt (entget ent)
     p1 (cdr (assoc 10 tt))
     p2 (cdr (assoc 11 tt))
   )
   (list p1 p2)
 )
 (setq
   ssbac (ssget '((0 . "LINE")))
   hbac (getdist "\nChieu cao bac")
   lstent (ss2ent ssbac)
   ttbac (mapcar 'l2bac lstent)
   index 0.0
 )
 (command ".3dmesh")
 (command (* 2 (length lstent)) 2)
 (foreach pp ttbac    
   (setq
     caoht (* index hbac)
     index (+ index 1.0)
     p1 (car pp)
  p2 (cadr pp)
  x1 (car p1)
  y1 (cadr p1)
  x2 (car p2)
  y2 (cadr p2)
  za caoht
  zb (+ caoht hbac)
     p1a (list x1 y1 za)
     p1b (list x1 y1 zb)
     p2a (list x2 y2 za)
     p2b (list x2 y2 zb)      
   )
   (command p1a p2a p1b p2b)
 )
)

 

Đầu tiên là mặt bằng của bạn:

 

bạn đổi viewport để xem dạng phối cảnh:

 

dùng lệnh tinhthang để vẽ 3d của bậc thang:

 

dùng lệnh shade để xem thang dạng có diện:

 

Xoay để lấy mặt đứng biên:

 

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

 

không vẽ được như ý muốn !

[sly 0]

Sao các bác không tạo ra 1 file Lisp luôn. Có người không biết làm thế thì sao sử dụng được.

[sly 0]

Command: tinhthang

 

Select objects: Specify opposite corner: 4 found

 

Select objects:

Chieu cao bac150

; error: no function definition: SS2ENT

 

Command:

[phamthanhbinh 3.146]

Command: tinhthang

 

Select objects: Specify opposite corner: 4 found

 

Select objects:

Chieu cao bac150

; error: no function definition: SS2ENT

 

Command:

Hãy đọc kỹ lại bài viết bổ sung của bác Hoành bạn ơi.

[ktsk80 27]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

 

Hì, tớ hồi âm đây :

phải tính trước chiều cao bậc thì chưa hay lắm vì phải nhẩm trước, bác sửa thành chiếu cao tầng có lẽ hay hơn.

Phần thang thẳng, khi qua chiếu nghỉ ( đoạn giữa) chiếu nghỉ thành hình tam giác bác ạ

[dh2xd 24]

chà chà e tính dùng nhưng xem ra thấy còn chưa hoàn chỉnh lắm nên hi vọng bác sớm hoàn thiện để chia sẻ cho anh em một bản hoàn chỉnh nhất

[icoffshore 9]

Bác Hoành làm như thế là cố gắng với anh em lắm rồi. Mình nghĩ những chỗ như chiếu nghỉ thì chúng ta chịu khó tách ra thành 2 thang, sau đó ghép chúng lại.

[KHIEMHAO 5]

Sao mình đã tải file lisp mới về nhưng appload vào Cad ( cả 2 Cad 2005 và 2008) nhưng đều không sữ dụng được, khi nhập command: tinhthang - enter thì Cad báo là too many arguments, bạn nào đã dùng rồi thì chỉ cho mình với, mình thao tác có điểm nào sai o? Mình nghĩ vấn đề là ở chổ file lisp đó, có cần chỉnh sữa lại gì trước khi load vào Cad o? Thanks in advance

[hailuavnn 1]

không vẽ được như ý muốn !

 

-Lệnh này rất hay,mình cũng làm nhập lung tung 1 hồi thi có cũng hiện nhập chiều cao bậc.

-Nhưng lúc chọn góc thì hơi khó , nên lúc đã hoàn thành thang thì thang lại nằm 1 chổ khác.

-Bác Nguyen Hoanh xem lại dùm nha. Lệnh như thế thì cũng ok.

Nghĩa là:

B1: Command: TINHTHANG

B2: Select objects: f

B3: Select objects

B4: Nhập chiều cao bậc => ok

Như vậy thì tốt quá.

 

 

Đây là lệnh mình làm.

 

Command: TINHTHANG

 

Select objects: f

 

Specify first fence point:

Specify next fence point or [undo]:

Specify next fence point or [undo]:

................................................

Specify next fence point or [undo]:

Specify next fence point or [undo]:

Specify next fence point or [undo]: 17 found

 

Select objects: 150

Specify opposite corner:

 

Invalid window specification.

Specify opposite corner: Specify opposite corner: 0

0 found

Select objects: 150

Specify opposite corner:

 

Invalid window specification.

Specify opposite corner: Specify opposite corner:

 

Invalid window specification.

Specify opposite corner: Specify opposite corner: 150

0 found

Select objects:

 

Chieu cao bac150

.3dmesh

Enter size of mesh in M direction: 34

Enter size of mesh in N direction: 2

Specify location for vertex (0, 0):

Specify location for vertex (0, 1):

Specify location for vertex (1, 0):

Specify location for vertex (1, 1):

Specify location for vertex (2, 0):

Specify location for vertex (2, 1):

Specify location for vertex (3, 0):

Specify location for vertex (3, 1):

Specify location for vertex (4, 0):

Specify location for vertex (4, 1):

Specify location for vertex (5, 0):

Specify location for vertex (5, 1):

Specify location for vertex (6, 0):

Specify location for vertex (6, 1):

Specify location for vertex (7, 0):

Specify location for vertex (7, 1):

Specify location for vertex (8, 0):

Specify location for vertex (8, 1):

Specify location for vertex (9, 0):

Specify location for vertex (9, 1):

Specify location for vertex (10, 0):

Specify location for vertex (10, 1):

Specify location for vertex (11, 0):

Specify location for vertex (11, 1):

Specify location for vertex (12, 0):

Specify location for vertex (12, 1):

Specify location for vertex (13, 0):

Specify location for vertex (13, 1):

Specify location for vertex (14, 0):

Specify location for vertex (14, 1):

Specify location for vertex (15, 0):

Specify location for vertex (15, 1):

Specify location for vertex (16, 0):

Specify location for vertex (16, 1):

Specify location for vertex (17, 0):

Specify location for vertex (17, 1):

Specify location for vertex (18, 0):

Specify location for vertex (18, 1):

Specify location for vertex (19, 0):

Specify location for vertex (19, 1):

Specify location for vertex (20, 0):

Specify location for vertex (20, 1):

Specify location for vertex (21, 0):

Specify location for vertex (21, 1):

Specify location for vertex (22, 0):

Specify location for vertex (22, 1):

Specify location for vertex (23, 0):

Specify location for vertex (23, 1):

Specify location for vertex (24, 0):

Specify location for vertex (24, 1):

Specify location for vertex (25, 0):

Specify location for vertex (25, 1):

Specify location for vertex (26, 0):

Specify location for vertex (26, 1):

Specify location for vertex (27, 0):

Specify location for vertex (27, 1):

Specify location for vertex (28, 0):

Specify location for vertex (28, 1):

Specify location for vertex (29, 0):

Specify location for vertex (29, 1):

Specify location for vertex (30, 0):

Specify location for vertex (30, 1):

Specify location for vertex (31, 0):

Specify location for vertex (31, 1):

Specify location for vertex (32, 0):

Specify location for vertex (32, 1):

Specify location for vertex (33, 0):

Specify location for vertex (33, 1):

Command: nil

[dinhgia35 0]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

(defun c:tinhthang()
(defun l2bac(ent)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
)
(list p1 p2)
)
(setq
ssbac (ssget '((0 . "LINE")))
hbac (getdist "\nChieu cao bac")
lstent (ss2ent ssbac)
ttbac (mapcar 'l2bac lstent)
index 0.0
)
(command ".3dmesh")
(command (* 2 (length lstent)) 2)
(foreach pp ttbac
(setq
caoht (* index hbac)
index (+ index 1.0)
p1 (car pp)
p2 (cadr pp)
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
za caoht
zb (+ caoht hbac)
p1a (list x1 y1 za)
p1b (list x1 y1 zb)
p2a (list x2 y2 za)
p2b (list x2 y2 zb)
)
(command p1a p2a p1b p2b)
)
)
(defun ss2ent(ss / sodt index lstent)
(setq
sodt (if ss (sslength ss) 0)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

 

Đầu tiên là mặt bằng của bạn:

 

bạn đổi viewport để xem dạng phối cảnh:

 

dùng lệnh tinhthang để vẽ 3d của bậc thang:

 

dùng lệnh shade để xem thang dạng có diện:

 

Xoay để lấy mặt đứng biên:

 

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

DOWNLOAD VỀ SỬ DỤNG ĐƯỢC ĐÚNG MỘT LẦN, CÒN CÁC LẦN SAU VÀO LỆNH NHƯ VẬY NÓ RA HÌNH CHI CHI ẤY. CÓ BÁC NÀO GẶP PHẢI LỖI NHƯ TÔI CHƯA, CHIA SẺ VỚI :)

[dinhgia35 0]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

(defun c:tinhthang()
(defun l2bac(ent)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
)
(list p1 p2)
)
(setq
ssbac (ssget '((0 . "LINE")))
hbac (getdist "\nChieu cao bac")
lstent (ss2ent ssbac)
ttbac (mapcar 'l2bac lstent)
index 0.0
)
(command ".3dmesh")
(command (* 2 (length lstent)) 2)
(foreach pp ttbac
(setq
caoht (* index hbac)
index (+ index 1.0)
p1 (car pp)
p2 (cadr pp)
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
za caoht
zb (+ caoht hbac)
p1a (list x1 y1 za)
p1b (list x1 y1 zb)
p2a (list x2 y2 za)
p2b (list x2 y2 zb)
)
(command p1a p2a p1b p2b)
)
)
(defun ss2ent(ss / sodt index lstent)
(setq
sodt (if ss (sslength ss) 0)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

 

Đầu tiên là mặt bằng của bạn:

 

bạn đổi viewport để xem dạng phối cảnh:

 

dùng lệnh tinhthang để vẽ 3d của bậc thang:

 

dùng lệnh shade để xem thang dạng có diện:

 

Xoay để lấy mặt đứng biên:

 

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

Có ai giúp mình không, sao mình vẽ hoài mà vẫn cứ bị như vậy. Đang rất cần. Cám ơn các huynh trước nha.

http://www.cadviet.com/upfiles/3/thang_luon_17_bac_ko.dwg

[xuanhaithanhhoa 25]

nếu bác Hoành có thời gian tạo luôn cái tiện ích vẽ thang cài trực tiếp vào máy tính kiểu như speedCAD thì hay quá.mỗi khi cần thi cài vào dùng luôn.nên kết hợp luôn 1 số tiện ích vào trong đó luôn thì tuyệt cú mèo.

[detuntt 4]

trình độ mình chưa biết dùng cái này

[quockhanh2008 0]

sao minh vẽ không được, nó cứ bị dính lai. bậc trên dính xuống bậc dưới.giúp mình mới. giống như bạn ơ trên vậy đó

[ttbinh54 0]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

(defun c:tinhthang()
(defun l2bac(ent)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
)
(list p1 p2)
)
(setq
ssbac (ssget '((0 . "LINE")))
hbac (getdist "\nChieu cao bac")
lstent (ss2ent ssbac)
ttbac (mapcar 'l2bac lstent)
index 0.0
)
(command ".3dmesh")
(command (* 2 (length lstent)) 2)
(foreach pp ttbac
(setq
caoht (* index hbac)
index (+ index 1.0)
p1 (car pp)
p2 (cadr pp)
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
za caoht
zb (+ caoht hbac)
p1a (list x1 y1 za)
p1b (list x1 y1 zb)
p2a (list x2 y2 za)
p2b (list x2 y2 zb)
)
(command p1a p2a p1b p2b)
)
)
(defun ss2ent(ss / sodt index lstent)
(setq
sodt (if ss (sslength ss) 0)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

 

Đầu tiên là mặt bằng của bạn:

 

bạn đổi viewport để xem dạng phối cảnh:

 

dùng lệnh tinhthang để vẽ 3d của bậc thang:

 

dùng lệnh shade để xem thang dạng có diện:

 

Xoay để lấy mặt đứng biên:

 

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

Anh Hoanh ơi , Autolisp của Anh hay lắm nhưng mà Em vẽ nó cú dính nhau ấy , Anh chỉ Em với ? hic

[ttbinh54 0]

Bạn mệt mỏi khi phải dóng để vẽ mặt đứng thang phức tạp?

 

Hãy để lisp tính thang của CADViet giúp bạn phần nào. Bạn copy đoạn code dưới đây vào file một file lisp rồi appload lên và dùng lệnh tinhthang.

 

(defun c:tinhthang()
(defun l2bac(ent)
(setq
tt (entget ent)
p1 (cdr (assoc 10 tt))
p2 (cdr (assoc 11 tt))
)
(list p1 p2)
)
(setq
ssbac (ssget '((0 . "LINE")))
hbac (getdist "\nChieu cao bac")
lstent (ss2ent ssbac)
ttbac (mapcar 'l2bac lstent)
index 0.0
)
(command ".3dmesh")
(command (* 2 (length lstent)) 2)
(foreach pp ttbac
(setq
caoht (* index hbac)
index (+ index 1.0)
p1 (car pp)
p2 (cadr pp)
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
za caoht
zb (+ caoht hbac)
p1a (list x1 y1 za)
p1b (list x1 y1 zb)
p2a (list x2 y2 za)
p2b (list x2 y2 zb)
)
(command p1a p2a p1b p2b)
)
)
(defun ss2ent(ss / sodt index lstent)
(setq
sodt (if ss (sslength ss) 0)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

 

Đầu tiên là mặt bằng của bạn:

 

bạn đổi viewport để xem dạng phối cảnh:

 

dùng lệnh tinhthang để vẽ 3d của bậc thang:

 

dùng lệnh shade để xem thang dạng có diện:

 

Xoay để lấy mặt đứng biên:

 

Lệnh tính thang không thể vẽ kỹ được thang cho bạn, nhưng chắc chắn nó sẽ giúp bạn làm những thao tác cơ bản để có được những nét phôi của thang. Từ đó bạn sẽ thêm nét để trở thành mặt chiếu hay phối cảnh của thang.

 

Rất mong có được sự hồi âm sau khi sử dụng Lisp.

minh hỏi sao đây trơi /không biết sao luôn

[tranquocbaoxd191 0]

Với thang tròn thì lisp này làm việc tốt, nhưng với thang vuông nó cứ làm sao ấy

bạn ơi chỉ giúp mình cách vẽ mặt cắt thang bằng lisp vt với! cảm ơn bn nhiều.

[quytran.arc 0]

sao mình vẽ tới cuối lệnh cad báo lỗi này : error : no function definition : SETQSODT 

Bác Hoành chỉ giúp em với !

Em mới tập dùng list , bác thông cảm ! thanks bác !

; error: no function definition: SETQSODT

 

; error: no function definition: SETQSODT

 

; error: no function definition: SETQSODT

[sumi 55]

mình cũng bị lỗi này: "error : no function definition : SETQSODT"

nên ko dùng dc lisp!