Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
latungkts

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

Các bài được khuyến nghị

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.com/upfiles/5/144773_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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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))
	)
))
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

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

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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á

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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 :)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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ư?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.com/upfiles/5/144773_chi_sua_hatch_hc_hm_hs.lsp ) nhờ sửa chế độ khí copy thành copy liên tục

  • Vote tăng 1
  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 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à :)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

- 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.com/upfiles/5/144773_129776_h1.lsp

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.com/upfiles/5/144773_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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×