Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Về vấn đề lisp autoscale?


  • Please log in to reply
9 replies to this topic

#1 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 22 September 2011 - 11:34 AM

Trước đây trên diễn đàn mình có thấy có bài viết về cái lisp: autoscale.
Tức là chọn dimstyle hiện hành và khi chạy lisp các thao tác mình nhập tỷ lệ vào đều là 1:1 thì tương đương với mình đang thao tác với tỷ lệ của dimstyle hiện hành.
Lúc đầu mình đọc qua lisp đó thấy cũng ko áp dụng nhiều nên không download về dùng thử. Nay thấy có trường hợp cần nhưng tìm trong diễn đàn lại không thấy bài viết đó nữa. Nay phiền mọi người ai có lisp đó up lên dùm mình với.

Nhân tiện nhờ luôn các bác viết dùm lisp đo nhanh distance của 1 cái dim bất kỳ (để biết là cái dim đó scale mấy lần so với con số ghi trên dim mà ko phải vào dimstyle kiểm tra, chưa kể trường hợp cái dim đó lại còn bị modify scale factor trong thanh property nữa)
Thanks các bác nhiều nhé! :)
  • 0

#2 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 23 September 2011 - 03:43 PM

hic, có ai giúp được mình không vậy. Buồn thế!
  • 0

#3 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 23 September 2011 - 07:45 PM


Trước đây trên diễn đàn mình có thấy có bài viết về cái lisp: autoscale.
Tức là chọn dimstyle hiện hành và khi chạy lisp các thao tác mình nhập tỷ lệ vào đều là 1:1 thì tương đương với mình đang thao tác với tỷ lệ của dimstyle hiện hành.
Lúc đầu mình đọc qua lisp đó thấy cũng ko áp dụng nhiều nên không download về dùng thử. Nay thấy có trường hợp cần nhưng tìm trong diễn đàn lại không thấy bài viết đó nữa. Nay phiền mọi người ai có lisp đó up lên dùm mình với.

Cái này mình nhớ không nhầm thì là của Phanthanhtu (tức Tú đại hiệp). Mà hình như trang web của Tú đại hiệp die rồi thì phải.

Nhân tiện nhờ luôn các bác viết dùm lisp đo nhanh distance của 1 cái dim bất kỳ (để biết là cái dim đó scale mấy lần so với con số ghi trên dim mà ko phải vào dimstyle kiểm tra, chưa kể trường hợp cái dim đó lại còn bị modify scale factor trong thanh property nữa)
Thanks các bác nhiều nhé! :)

Còn cái này bạn test thử xem nhé.


(defun c:ktd( / a en kq)
(setq a (vla-get-LinearScaleFactor(vlax-ename->vla-object(setq en (car(entsel "\nChon dim de xem kich thuoc thuc: "))))))
(setq kq (/ (cdr(assoc 42 (entget en))) a))
(alert (strcat "Kich thuoc thuc cua dim la: " (rtos kq 2 2)))
)

  • 2
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#4 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 26 September 2011 - 09:32 AM

Cái này mình nhớ không nhầm thì là của Phanthanhtu (tức Tú đại hiệp). Mà hình như trang web của Tú đại hiệp die rồi thì phải.

Còn cái này bạn test thử xem nhé.



(defun c:ktd( / a en kq)
(setq a (vla-get-LinearScaleFactor(vlax-ename->vla-object(setq en (car(entsel "\nChon dim de xem kich thuoc thuc: "))))))
(setq kq (/ (cdr(assoc 42 (entget en))) a))
(alert (strcat "Kich thuoc thuc cua dim la: " (rtos kq 2 2)))
)



Cảm ơn bác phạm ngọc tú Kts nhé. Nhờ bác cung cấp cho em biết rằng bác phan thanh tu ( tức Tú Đại Hiệp ) viết cái em cần nên em đã gúc gồ và tìm ra được điều mình mong muốn. Xin cảm ơn dù vắng mặt bác Tú đại hiệp nhé! Quả là công cụ autoscale thật tuyệt vời.
  • 0

#5 hòa văn

hòa văn

    Chưa sử dụng CAD

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

Đã gửi 09 September 2012 - 07:31 AM

bài gì ơi share cho em với. gửi qua mail cho em với ha
HOAVANINFO@GMAIL.COm
thank bác nhiều
  • 0

#6 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 30 November 2012 - 05:04 PM

Đã sent cho hòa văn. Mỗi tội sau khi test thì thấy lisp còn nhiều hạn chế. Khó sử dụng.
  • 0

#7 quansla

quansla

    biết lệnh xclip

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

Đã gửi 01 December 2012 - 03:36 PM

Chào cả nhà! Cho em hỏi : bạn em gửi cho em lip cad cắt dim, coppy trục, thống kê. em load và dùng trên máy bàn win xp cad 2007 thì không vấn đề gi. mà em dùng trên laptop win7 64bit ban đầu thì được. sau lần đầu dùng và tắt máy đi những lần sau load làm tương tự mà không được mặc dù em đã cài lại cad vẫn k được, không hiểu tại sao( bạn em nói trên cty nó cũng có người dùng lip đó trên win 7) mong các anh chỉ lỗi này giúp em. Cảm ơn nhiều!

up file, đi bạn mình cũng tò mò cái này đây, biết đâu sau này cài Cad64 lại dính như vậy
  • 0

#8 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 01 December 2012 - 05:50 PM

Ứng dụng của PTTú viết bằng VB6 hook, k biết 64 chạy có ổn k ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#9 lim

lim

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 01 December 2012 - 06:13 PM

Tại laptop của mình chỉ sài được win 7, 64bit ( asus k43e ) không biết thế nào. cứ về nhà là k dùng líp được bực mà không làm j được. Mong các bạn chỉ giúp. Thanks!
File:
http://www.cadviet.c...60_lispcad1.rar
  • 0

#10 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 27 December 2012 - 09:18 AM

Acad autoscale dành cho mọi người xem thử: http://www.mediafire...w6aodkw4sbct46o
  • 0