Rated 5/5 based on 240179 internet user reviews

Jump to content


Change Photo
- - - - -

Lệnh vẽ v xa đường thẳng bằng lisp


  • Please log in to reply
4 replies to this topic

#1 vanvu

vanvu

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 posts
Danh tiếng: 0 (bnh thường)

Gửi vào 18 September 2007 - 11:34 PM

em mới học lập trnh lisp.xin hỏi cht về lệnh lisp
mnh mn vẽ trong cad đường thẳng,nhưng l đường nt đứt v sau khi nhấn enter th mất cc đường m mnh đ vẽ.
khng biết dng lệnh no để vẽ v dng lệnh no để sa
cm ơn nhiều
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 3,692 posts
Danh tiếng: 4298 (đỉnh cao)

Gửi vào 19 September 2007 - 07:12 AM

em mới học lập trnh lisp.xin hỏi cht về lệnh lisp
mnh mn vẽ trong cad đường thẳng,nhưng l đường nt đứt v sau khi nhấn enter th mất cc đường m mnh đ vẽ.
khng biết dng lệnh no để vẽ v dng lệnh no để sa
cm ơn nhiều

Bạn dng lệnh grdraw. với c php (grdraw from to color [highlight]).
- from l điểm bắt đầu
- to l điểm kết thc
- color l mu (theo bảng mu của autocad, 1: red, 2 yellow,...)
- highlight: t nt đứt hay khng? (0 = khng t)

V dụ: (grdraw (list 0.0 0.0) (list 100.0 100.0) 1 1) sẽ vẽ một đường thẳng trn mn hnh từ điểm (0.0,0.0) đến (100.0,100.0) với mu đỏ v nt đứt.

muốn xa đường line ny đi, bạn dng lệnh redraw của autocad: (command ".redraw")
  • 0

#3 vanvu

vanvu

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 posts
Danh tiếng: 0 (bnh thường)

Gửi vào 21 September 2007 - 03:39 PM

Bc g ấy ơi,vấn đề của em vậy n: lấy điểm đầu v lấy điểm cuối sau đ dng lệnh của bc dể vẽ nhưng đu c được

(setq StartPt (getpoint "\nStartpoint: "))
(setq EndPt (getpoint StartPt "\nEndpoint: "))
(grdraw ( startPt ) ( EndPt ) 1 1)

giả sử mnh mn vẽ lin tiếp nhiều đường.Sau đ sa chng đồng loạt th sao
Bc lm ơn chỉ lun.Cm ơn nhiều
  • 0

#4 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 3,692 posts
Danh tiếng: 4298 (đỉnh cao)

Gửi vào 21 September 2007 - 04:17 PM

Bc g ấy ơi,vấn đề của em vậy n: lấy điểm đầu v lấy điểm cuối sau đ dng lệnh của bc dể vẽ nhưng đu c được

(setq StartPt (getpoint "\nStartpoint: "))
(setq EndPt (getpoint StartPt "\nEndpoint: "))
(grdraw ( startPt ) ( EndPt ) 1 1)

giả sử mnh mn vẽ lin tiếp nhiều đường.Sau đ sa chng đồng loạt th sao
Bc lm ơn chỉ lun.Cm ơn nhiều

Xin lỗi chưa hiểu bạn. bạn l vẽ cc đoạn trn mn hnh (khng tạo đối tượng) hay l vẽ cc đối tượng line?

Đoạn m trn của ti dng để vẽ cc đoạn trn mn hnh (khng tạo đối tượng line). Tuy vậy, cch dng của bạn bị sai c php. Đng l:
(setq StartPt (getpoint "\nStartpoint: "))
(setq EndPt (getpoint StartPt "\nEndpoint: "))
(grdraw startPt EndPt 1 1)

Nếu muốn vẽ nhiều đoạn thẳng th dng đoạn m ny nhiều lần hoặc dng 1 lệnh grvecs với c php:
(grvecs list) trong đ list l 1 tập hợp dạng (mu1 pa1 pb1 mu2 pa2 pb2 ...)
v dụ m lệnh:
(grvecs (list 1 '(0 0) '(100 100) 2 '(100 100) '(200 200))
sẽ vẽ 2 đoạn thẳng, đoạn đầu mu đỏ từ (0,0) đến (100,100) đoạn thứ 2 mu vng từ (100,100) đến (200,200).
  • 0

#5 vanvu

vanvu

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 posts
Danh tiếng: 0 (bnh thường)

Gửi vào 21 September 2007 - 07:22 PM

Em đ được như nguyện.Cm ơn bc rất nhiều
  • 0