Đến nội dung


Hình ảnh
- - - - -

[Nhờ Chỉnh Sửa] Nhờ Các Bạn Giúp Chỉnh Sửa Lsp Hatch


  • Please log in to reply
9 replies to this topic

#1 latungkts

latungkts

    biết zoom

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

Đã gửi 13 August 2015 - 05:33 PM

Mình tìm thấy lsp hatch nhanh các loại hatch của bác @ketxu, mình nhờ bạn nào hoặc tác giả :D sửa giùm 2 điểm cho phù hợp với mình :

+làm cho hatch ko còn thuộc tính associative

+thêm chức năng  ( hoặc hướng dẫn mình ) pick điểm origin ( hatch origin - specified origin ) cho 1 số mẫu hatch ( vd khi dùng hatch WC,brick trong lsp này thì xuấn hiện thêm tùy chọn pick điểm gốc, còn các hatch khác thì không )http://www.cadviet.c...129776_h1_1.lsp

 

P/S: nhân tiện acc cũ của mình không truy cập đc trang cá nhân, không đăng đc bài viết và cũng không liên lạc đc với bqt, có bạn nào biết nguyên nhân nói giúp mình


  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 13 August 2015 - 06:02 PM

Lười viết lại nên bạn chỉnh nhanh hàm con thành nt :

(defun SetHvar ( hName hScale hAng hAssoc hGap) ;hLayer)
(acet-sysvar-set 
	(list 	"hpname" hname 
			"hpscale" hScale 
			"hpang" hAng 
			"hpassoc" 0 
			"hpgaptol" hgap 
			"clayer" "00-08Hatch" 
			"HPSEPARATE" 1 
			"hporigin" (cond((getpoint "\nOrigin :")) (list 0 0))
	)
))

  • 1

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


#3 latungkts

latungkts

    biết zoom

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

Đã gửi 13 August 2015 - 06:48 PM

 

Lười viết lại nên bạn chỉnh nhanh hàm con thành nt :

(defun SetHvar ( hName hScale hAng hAssoc hGap) ;hLayer)
(acet-sysvar-set 
	(list 	"hpname" hname 
			"hpscale" hScale 
			"hpang" hAng 
			"hpassoc" 0 
			"hpgaptol" hgap 
			"clayer" "00-08Hatch" 
			"HPSEPARATE" 1 
			"hporigin" (cond((getpoint "\nOrigin :")) (list 0 0))
	)
))

nhân tiện bác có phải tác giả lsp này không nhỉ ? ( nếu không đúng thì cho em xin lỗi bác tác giả nếu có ghé qua ;P ) bác giúp em sửa phần copy hatch của lsp có khả năng copy liên tục chứ không phải copy 1 lần xong là dứt lệnh như lsp này


  • -1

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 13 August 2015 - 09:07 PM

Mình không :)
Chắc smai mới ngồi máy được. H mình vẫn đang làm ^^
À quên chưa nói lúc nhập origin nếu bạn space luôn thì coi như lấy origin mặc đinh nhá
  • 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


#5 latungkts

latungkts

    biết zoom

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

Đã gửi 13 August 2015 - 09:57 PM

Mình không :)
Chắc smai mới ngồi máy được. H mình vẫn đang làm ^^
À quên chưa nói lúc nhập origin nếu bạn space luôn thì coi như lấy origin mặc đinh nhá

+cái đó vô tình bấm space nên mình phát hiện ra rồi :D

+thế bạn cho hỏi trong đoạn code của bạn ((or (= "G" (strcase s1)) (= "GROUND" (strcase s1))) (SetHvar "AR-CONC" 1 0 1 20))

nếu muốn thay đổi angle của mẫu hatch thì sửa chỗ nào :)


  • 0

#6 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 13 August 2015 - 10:00 PM

Không có gì tệ hơn khi biết tác giả là KETXU, rồi sau đó đích thân KET XU trả lời mà còn hỏi lại "bác có phải tác giả lsp này không nhỉ?"

Thế bạn nghĩ tác giả là ai? Và người trả lời là ai, hỡi kiến trúc sư?


  • 0

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


#7 latungkts

latungkts

    biết zoom

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

Đã gửi 13 August 2015 - 10:11 PM

Không có gì tệ hơn khi biết tác giả là KETXU, rồi sau đó đích thân KET XU trả lời mà còn hỏi lại "bác có phải tác giả lsp này không nhỉ?"

Thế bạn nghĩ tác giả là ai? Và người trả lời là ai, hỡi kiến trúc sư?

bác ơi ý em nói cái lsp sau cơ, mà cái lsp sau e quên lúc đính kèm ko upload, chứ cái lsp em nhờ sửa thì biết chắc của bác ket rồi :(( cái này em nhận sai do sơ suất, đây em up cái lsp thứ 2 (cũng về hatch-thật tình quên mất ko biết của tác giả nàohttp://www.cadviet.c...ch_hc_hm_hs.lsp ) nhờ sửa chế độ khí copy thành copy liên tục


  • 0

#8 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 14 August 2015 - 08:17 AM

 bác giúp em sửa phần copy hatch của lsp có khả năng copy liên tục chứ không phải copy 1 lần xong là dứt lệnh như lsp này

 

- Mình thấy nhiều lệnh quá, k biết bạn nói lệnh h nào ^^

 

+cái đó vô tình bấm space nên mình phát hiện ra rồi :D

+thế bạn cho hỏi trong đoạn code của bạn ((or (= "G" (strcase s1)) (= "GROUND" (strcase s1))) (SetHvar "AR-CONC" 1 0 1 20))

nếu muốn thay đổi angle của mẫu hatch thì sửa chỗ nào :)

 

- Thông số thứ 3. Tức là số 0 ý. Bạn hoàn toàn có thể thử thay để biết mà :)


  • 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 latungkts

latungkts

    biết zoom

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

Đã gửi 14 August 2015 - 10:03 AM

- Mình thấy nhiều lệnh quá, k biết bạn nói lệnh h nào ^^

 

 

- Thông số thứ 3. Tức là số 0 ý. Bạn hoàn toàn có thể thử thay để biết mà :)

+ cái lsp mình gửi nhờ bạn xem sửa giúp chế độ copy lệnh là hc

 + mình cũng thử mày mò thì cũng hiểu sơ sơ cái thông số đó và mình cũng thử sửa cho phù hợp với mình, cái số đầu tiên về scale hatch thì hoạt động ngon lành, tuy nhiên đến khi mình thử đổi thông số góc thì có vấn đề. mình test thử thay mẫu hatch của WALL trong lsp = mẫu AR-RROOF với góc quay là 45, mẫu hatch thì đúng nhưng góc quay thực tế khi dùng trong bản vẽ lại thành 58 ( 45 trong lsp thành 58 trong bản vẽ ) thử thay các góc khác thì cũng ra những số góc trong bản vẽ rất kỳ quặc @@. mình up lsp lên bạn thử xemhttp://www.cadviet.c...3_129776_h1.lsp


  • 0

#10 tracdia360

tracdia360

    biết vẽ line

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

Đã gửi 14 August 2015 - 10:48 AM

Mình tìm thấy lsp hatch nhanh các loại hatch của bác @ketxu, mình nhờ bạn nào hoặc tác giả :D sửa giùm 2 điểm cho phù hợp với mình :
+làm cho hatch ko còn thuộc tính associative
+thêm chức năng  ( hoặc hướng dẫn mình ) pick điểm origin ( hatch origin - specified origin ) cho 1 số mẫu hatch ( vd khi dùng hatch WC,brick trong lsp này thì xuấn hiện thêm tùy chọn pick điểm gốc, còn các hatch khác thì không )http://www.cadviet.c...129776_h1_1.lsp
www.dodacbando.com
 
P/S: nhân tiện acc cũ của mình không truy cập đc trang cá nhân, không đăng đc bài viết và cũng không liên lạc đc với bqt, có bạn nào biết nguyên nhân nói giúp mình


  • 0