Đến nội dung


Hình ảnh
- - - - -

Thêm dòng lệnh khôi phục bắt điểm vào lisp dải thép !


  • Please log in to reply
6 replies to this topic

#1 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 23 November 2009 - 02:25 PM

Cái lisp dải thép của em nó bị mất bắt điểm khi chạy. Các a thêm júp em vào để nó ko mất bắt điểm với !
CODE
(DEFUN C:33 ()
(Command "undo" "begin")
(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(progn

(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETVAR "CMDECHO" 0)
(PROMPT "\nArray object!")
(SETQ SLT (SSGET))
(initget 7)

(PROMPT "\nStart point:")
(SETQ SPT (GETPOINT))
(PROMPT "\nEnd point:")
(SETQ EPT (GETPOINT SPT))
(SETVAR "OSMODE" 0)
(SETQ GC (ANGLE SPT EPT))

(if ot1 (setq ot2 (getreal (strcat "\na= <" (rtos ot1) ">:")))
(setq ot1 (getreal "\na=:" )))
(if ot2 (setq ot1 ot2))

( Setq NET ot1)
(SETQ DST (DISTANCE SPT EPT))
(SETQ NET1 (/ dst net))

(SETQ NET2 (+ net1 0.5))
(SETQ NET3 (fix net2))




(SETQ DST1 (/ DST NET3 ))
(SETQ DEM 1)
(WHILE (< DEM NET3 )
(SETQ BDT (* DEM DST1))
(SETQ PT1 (POLAR SPT GC BDT))
(COMMAND "COPY" SLT "" SPT PT1)
(SETQ DEM (+ DEM 1))
)
(SETVAR "CMDECHO" CMD)
(command "OSMODE" "15359"))

(PRINC)
)
  • 0
Hoàng Giang

#2 master_worse

master_worse

    biết lệnh offset

  • Advance Member
  • PipPipPip
  • 170 Bài viết
Điểm đánh giá: 87 (tàm tạm)

Đã gửi 23 November 2009 - 03:03 PM

Cái lisp dải thép của em nó bị mất bắt điểm khi chạy. Các a thêm júp em vào để nó ko mất bắt điểm với !
CODE

bạn dùng thử:
(DEFUN C:33 ()
;;;(Command "undo" "begin")
;;;(SETQ CMD (GETVAR "CMDECHO"))
;;;(SETQ OSM (GETVAR "OSMODE"))

(progn

(SETQ CMD (GETVAR "CMDECHO"))
(SETQ OSM (GETVAR "OSMODE"))
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 15359)
(PROMPT "\nArray object!")
(SETQ SLT (SSGET))
(initget 7)

(PROMPT "\nStart point:")
(SETQ SPT (GETPOINT))
(PROMPT "\nEnd point:")
(SETQ EPT (GETPOINT SPT))
(SETVAR "OSMODE" 0)
(SETQ GC (ANGLE SPT EPT)) ;_ gc là 1 hàm của lisp không sử dụng làm biến.

(if ot1 (setq ot2 (getreal (strcat "\na= <" (rtos ot1) ">:")))
(setq ot1 (getreal "\na=:" )))
(if ot2 (setq ot1 ot2))

( Setq NET ot1)
(SETQ DST (DISTANCE SPT EPT))
(SETQ NET1 (/ dst net))

(SETQ NET2 (+ net1 0.5))
(SETQ NET3 (fix net2))
(SETQ DST1 (/ DST NET3 ))
(SETQ DEM 1)
WHILE (< DEM NET3 )
(SETQ BDT (* DEM DST1))
(SETQ PT1 (POLAR SPT GC BDT))
(COMMAND "COPY" SLT "" SPT PT1)
(SETQ DEM (+ DEM 1))
)
(SETVAR "CMDECHO" CMD)
(SETVAR "OSMODE" OSM)
;|(command "OSMODE" "15359")|;)

(PRINC)
)
  • 0

Ngu dốt không đáng thẹn bằng thiếu ý chí học hỏi


Tri thức làm người ta khiêm tốn, ngu si làm người ta kiêu ngạo (Ngạn ngữ Anh)


#3 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 23 November 2009 - 03:08 PM

(SETQ GC (ANGLE SPT EPT)) ;_ gc là 1 hàm của lisp không sử dụng làm biến.

GC là hàm có tác dụng gì đấy bạn? Do mình có lisp dùng tên là GC nên hỏi để biết còn sửa!
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#4 master_worse

master_worse

    biết lệnh offset

  • Advance Member
  • PipPipPip
  • 170 Bài viết
Điểm đánh giá: 87 (tàm tạm)

Đã gửi 23 November 2009 - 03:12 PM

GC là hàm có tác dụng gì đấy bạn? Do mình có lisp dùng tên là GC nên hỏi để biết còn sửa!

Bác cứ đùa...
AutoLISP Reference Guide > AutoLISP Functions > G Functions >

Forces a garbage collection, which frees up unused memory

(gc)

See Also
The Memory Management Functions topic in the AutoLISP Developer's Guide.
  • 0

Ngu dốt không đáng thẹn bằng thiếu ý chí học hỏi


Tri thức làm người ta khiêm tốn, ngu si làm người ta kiêu ngạo (Ngạn ngữ Anh)


#5 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 24 November 2009 - 02:20 PM

Bác cứ đùa...
AutoLISP Reference Guide > AutoLISP Functions > G Functions >

Forces a garbage collection, which frees up unused memory

(gc)

See Also
The Memory Management Functions topic in the AutoLISP Developer's Guide.

OK ! chạy tốt rùi . Cảm ơn bác nhìu nhé !kekekeke
  • 0
Hoàng Giang

#6 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 24 November 2009 - 08:59 PM

Bác cứ đùa...
AutoLISP Reference Guide > AutoLISP Functions > G Functions >

Forces a garbage collection, which frees up unused memory

(gc)

See Also
The Memory Management Functions topic in the AutoLISP Developer's Guide.

Chào bạn 'master_worse'
Bạn có thể cho biết tính năng của hàm (gc) được không?
Đọc Description (mô tả) mà thực chưa hiểu lắm. : Forces a garbage collection, which frees up unused memory

Bạn giải thích dùm Tue_NV nhé.
Thanks
  • 0

#7 meohoang

meohoang

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 811 Bài viết
Điểm đánh giá: 342 (khá)

Đã gửi 24 November 2009 - 10:08 PM

Chào bạn 'master_worse'
Bạn có thể cho biết tính năng của hàm (gc) được không?
Đọc Description (mô tả) mà thực chưa hiểu lắm. : Forces a garbage collection, which frees up unused memory

Bạn giải thích dùm Tue_NV nhé.
Thanks

Đại khái là: Quét dọn rác , giải phóng các biến trong bộ nhớ ko được dùng đến
  • 2