YAHOO部落格新家開張

YAHOO部落格新家開張

有空可以去看看

http://tw.myblog.yahoo.com/jth-wax/

有很多新的文章喔~

[轉貼 Jeff_M] 面域物件轉聚合線物件

 

[轉貼 Jeff_M] 面域物件轉聚合線物件
http://www.theswamp.org/index.php?topic=17443.0

(defun c:Reg2Poly (/ ss)
  (if (setq ss (ssget '((0 . "REGION"))))
    (progn
      (setvar "qaflags" 1)
      (command ".explode" ss "")
      (setvar "qaflags" 0)
      (if (= 1 (getvar "peditaccept"))
 (command ".pedit" "m" "p" "" "j" "" "")
 (command ".pedit" "m" "p" "" "y" "j" "" "")
 )
      )
    )
  (princ)
  )

 

http://www.tstmr.com/tmr/dispbbs.asp?boardID=6&ID=1928&page=1

QAFLAGS是個未公佈的系統變量

通常用來在LISP中控制選擇集中多個對象炸開的

QAFLAGS還對ctrl起作用，如果QAFLAGS＝1，那麼進行Ctrl+c的時候就不能先選物體再複製。如果QAFLAGS＝0，就可以先選物體再複製。

* What is QAFLAGS?

QAFLAGS been used a long time (< r12) by deelopers and autodesk themself too.

QAFLAGS acceps a alue between 0 and 32767
bit 0 (1) : ^C in menu macro cancels grips (acts like keyboard ).
bit 1 (2) : no pause during text screen listings.
bit 2 (4) : no "alert" dialogs (text display instead).
bit 7 (128) : accepts "screen picks" (point lists) ia (command) function.

Normally QAFLAGS should be set to 0. Because it might be set to other alues it is a good idea to put (setar "QAFLAGS" 0) in acaddoc.lsp or any other of your lisp files that you use for startup

登山用品專門店

登山用品專門店

　

台北市	地址	電話	備註
山水	100台北市中山北路1段18號	02-23619507
登山友(本店)	100台北市中山北路1段18號	02-23116027	網站
蹼樂戶外玩家	100台北市中山北路1段6-1號	02-23822050
典高	100台北市襄陽路17號	02-23318059
弘野登山潛水	100台北市汀洲路3段291號	02-23654358	網站
台北羽毛(公館店)	100台北市汀洲路3段203號	02-23655203
海灣	100台北市南昌路1段12號	02-23951386
王子登山戶外用品	100台北市南昌路2段151號	02-23684358	網站
橋登飛狼	100台北市信義路2段283號	02-23921921
王子登山體育用品	103台北市延平北路一段30號	02-25551583
佳遊登山用品	103台北市延平路1段36號	02-25594239
台北羽毛(重慶店)	103台北市重慶北路1段82號	02-25583330
山之道登山用品	103台北市承德路1段24巷7號4樓	02-25592521
杭誠休閒旅遊	103台北市民族西路228號1樓	02-25855116
北極鳥	104台北市民權東路3段17號	02-25079391
拓荒者	104台北市民權東路3段51號	02-25083090
台北羽毛(民權店)	104台北市民權東路1段56號	02-25605511	網站
飛狼(旗艦店)	104台北市民生東路2段154號	02-25711129
健野戶外用品	104台北市建國北路2段16號	02-25094664	網站
自然境界	104台北市復興北路380巷8號	02-25181435
遨遊世界	104台北市松江路374號	02-25983499	網站
旅行者(南京店)	105台北市南京東路4段152號	02-25770836	網站
黑雨(松德店)	105台北市松德路125號1樓	02-27264819
旅行者(民生店)	105台北市民生東路5段35號	02-27470762	網站
奇賓戶外用品	105台北市虎林街164巷60弄19號	02-87803961
銘德	106台北市師大路95號	02-23639832
傑克狼皮	106台北市羅斯福路3段284巷7號1樓	02-23651501
墾趣生活	106台北市羅斯福路3段258號2樓	02-23655775
北壁戶外用品	106台北市羅斯福路4段136巷1弄11號	02-23679818
Rockland戶外用品	106北市羅斯福路3段283巷14弄16-1號	02-23691961
戶外旅遊生活館	106台北市信義路2段207號2樓	02-23581428
墾趣生活	106台北市信義路2段213號	02-23971598
行家旅遊	106台北市信義路3段162-2號	02-27546080
四季羽毛信義總店	106台北市信義路3段164-1號	02-27025602
戶外休閒用品	106台北市信義路4段1-13號	02-07026088
秀山莊(台北店)	106台北市信義路3段160號	02-27026169	網站
旅行者(信二店)	106台北市信義路3段162-3號	02-27029627	網站
旅行者(概念店)	106台北市信義路3段116號	02-27071363	網站
四季羽毛(信義三店)	106台北市信義路3段154-5號	02-27546909
旅行者(信義店)	106台北市信義路3段150號-1	02-27548318	網站
歐都納(台北展售店)	106台北市忠孝東路3段170號	02-27789433	網站
旅行者(忠孝店)	106台北市忠孝東路3段188號	02-27781750	網站
易生活休閒用品	106台北市光復南路402號	02-27034406
拔山企業(登山家)	106台北市復興南路2段329號17樓之3	02-2378 7520	網站
典高(復興店)	106台北市復興南路1段121號	02-27215368
山野長征	106台北市仁愛路4段345巷4弄10號1樓	02-27812871	網站
好成體育用品	108台北市萬大路327號	02-23038476
詮峰登山用品	108台北市柳州街38號	02-23115438	網站
長毛象休旅名店	110台北市仁愛路4段422號	02-27236580
龍虎野外	110台北市信義區福德街32號	02-27285506
自然行	110台北市基隆路1段35號7弄37號	02-27567895
墾趣生活	111台北市中山北路6段17號	02-28313660
山野倉庫	111台北市士林區中山北路5段703號	02-28318055	網站
旅行者(天母店)	111台北市天母西路46號-2	02-28742085
黑雨(天母店)	111台北市天母西路87路	02-28768499
百岳運動休閒旅行(一店)	111台北市士林區文林路159號	02-28815036
百岳運動休閒旅行(二店)	111台北市士林區文林路297號	02-28820152
冰岩實業	112台北市北投區義理街1號	02-28261996	網站
觀高休旅	112台北市北投區北投路2段25號	02-28976880	網站
全方位(德安店)	114台北市成功路4段180號7樓	02-87911162	網站
全方位(內湖店)	114台北市成功路4段30巷28弄23號1樓	02-87919037	網站
悠閒家	117台北市景興路239號1樓	02-89315468
台北縣	地址	電話	備註
理想登山體育用品	200基隆市信二路279號	02-24245639
小李子服飾精品	200基隆市愛三路98巷6號	02-24251949
詮峰登山用品	220台北縣板橋市文化路2段59號	02-22502259	網站
兄弟體育	220板橋市中山路2段13號	02-29612886
玉山	220板橋市重慶路228號	02-29632376
游遊登山體育用品	231新店市北新路3段101號	02-29105030
仲強戶外體育用品	231新店市北新路2段19號	02-29133944
天劍企業	231新店市中正路568號一樓	02-86672707	網站
永越登山體育用品	231台北縣新店市光明街27號	02-29117798
和興	234永和市竹林路143號	02-29217859
高點戶外用品	235台北縣中和市南華路69號	02-22491234	網站
頂好登山體育用品	235台北縣中和市南華路73號	02-22489298
遨遊天地	238樹林市鎮前街76號	02-26826023
桃園縣市	地址	電話	備註
山角點	324桃園縣平鎮市中豐路1段6號	03-4582631
逸園體育	325桃園縣龍潭鄉建國路6號	03-4705752
藍駝	330桃園市鎮撫街154號	03-3320061
綠卡	330桃園市三民路3段363號	03-3337787
海山友之家	330桃園市育樂街4號	03-3339889
羅浮聖地	330桃園市大有路158-9號	03-3471737	網站
全民體育	330桃園市中山路24號	03-3370811
山頂鳥	330桃園市福元街3號	03-3383758
城市綠洲戶外生活館	320中壢市中華路二段508號	03-4336288	網站
健野(中壢)	320中壢市建國北路33號	03-4258818	網站
崚峰	320中壢市中山東路1段55號	03-4520000
強尼戶外用品	320中壢市中山東路1段319號	03-4662393
青山野營	320中壢市中山北路2段46巷13號	03-4683099
新竹縣市	地址	電話	備註
雪屋羽毛專賣店	300新竹市信義街88號	035-238863
旅行者新竹店	300新竹市中正路57號	035-266258
名將體育用品	300新竹市勝利路80號	035-266883	網站
名揚	300新竹市東大路219號	035-321922
大昌登山體育用品	300新竹市光復路2段410號	035-711517
大新燈山體育用品	300新竹市光復路2段522號	035-713906
紅人運動	300新竹市光復路2段416號	035-733175
名門體育用品	300新竹市新莊街142號	035-771177
瑞樂休旅	300新竹市東門街173號	035-285979
城市綠洲戶外用品	302竹北市中華路307之1號	035-529378	網站
苗栗縣市	地址	電話	備註
成功體育用品	351苗栗縣頭份鎮中正路129號	037-671649
野外飛狼體育用品	357苗栗市建中街18號	037-266881
霞客行	357苗栗市正發路53號	037-336588
台中縣市	地址	電話	備註
山水之友	400台中市市府路100號	04-22210292
先鋒記	400台中市三民路2段121號	04-22216538
馬蓋先	400台中市中正路168號	04-22216863
遊遍天下	400台中市三民路3段87號	04-22222398	網站
青山運動露營器材行	400台中市雙十路1段35之9號	04-22253913
寒山苑	402台中市國光路253號	04-22879071
秀山莊(五權店)	403台中市五權路40號	04-22020596	網站
飛狼(向上店)	403台中市項上路1段194-2號	04-23012302
飛狼(台中店)	403台中市五權路2-64號	04-23758898
大自然(忠明店)	404台中市忠明路232號	04-23264168	網站
吉野露營旅遊用品	404台中市雙十路2段191號	04-22387266
健野戶外用品(台中)	406台中市崇德路2段330號	04-22450678	網站
秀山莊(大雅店)	407台中市大雅路294號	04-22064084	網站
高山青戶外休閒精品	407台中市漢口路1段125號	04-23145873
旅行家旅遊用品專賣店	407台中市漢口路2段51號	04-23212827
秀山莊(大墩店)	407台中市大墩路690號	04-23251819	網站
丹野	407台中市河南路2段442號	04-27018817
大地登山旅遊用品	407台中市河南路2段482號	04-27074014
鄉野情(五權店)	408台中市五權西路2段316號	04-24714655	網站
頭家樂	408台中市南屯區文心路1段17號	04-24758525
騰野休閒露營用品社	411台中縣太平市東平路536號	04-22785885
建興運動器具	412台中縣大里市國光路2段701號	04-24070581
金同利	433台中縣沙鹿鎮中正街56號	04-26621189
比翼鳥旅遊露營用品	420台中縣豐原市中山路361號	04-25200883
鄉野情(東海店)	434台中縣龍井鄉台中港路7之59號2樓	04-26337015	網站
七彩湖	436台中縣清水鎮鎮南街46-1號	04-26230135
彰化縣市	地址	電話	備註
文城登山用品	500彰化市中正路463號	04-7255309
華新體育用品	500彰化市民族路412號	04-7261261
歐都纳	500彰化市南郭路1段117號	04-7262345	網站
正力休閒旅遊用品	500彰化市民族路211號	04-7281663
統一	509彰化縣伸港鄉仁愛路21號	04-7986559
正光運動	510彰化縣員林鎮惠來街53號	04-8329290
登山屋	510彰化縣員林鎮中山路2段325號	04-8338063	網站
中國登山用品	510彰化縣員林鎮三民東街38號	04-8350355	網站
嘉義雲林縣市	地址	電話	備註
綠野登山體育用品	600嘉義市林森西路209號	05-2220985
微笑體育用品	600嘉義市中正路498號	05-2252707
山水之友育樂用品	600嘉義市吳鳳北路84號	05-2255662
黎陽登山露營旅游用品	600嘉義市興業西路286號	05-2865641
微笑登山用品	640雲林縣斗六市太平路63號	05-5336263
台南縣市	地址	電話	備註
台大健康	700台南市健康路1段172號	06-2130265
豐利體育	700台南市健康路1段294號	06-2141522-3
新美	700台南市健康路2段130號	06-2221408
鑫洋登山潛水用品	700台南市民權路2段243號	06-2264661
秀山莊(民權店)	700台南市民權路1段226號	06-2266710	網站
秀山莊(中山店)	700台南市中山路37號	06-2288911	網站
秀山莊(長榮店)	701台南市長榮路2段69號	06-2347413	網站
綠野登山體育用品	701台南市東寧路12-1號	06-2366757
原野登山體育用品	701台南市東安路196號	06-2373928
衣力屋	702台南市開山路52巷1號	06-2200688
勝大體育用品	711台南縣歸仁鄉中山路313號	06-2302910
高雄縣市	地址	電話	備註
全方位登山體育用品	800高雄市五福一街84-1號	07-2264377
山水體育登山用品	800高雄市復興二路229號	07-2418381
旅行者(高雄店)	801高雄市五福三路25號	07-2720168
瑞琪行	802高雄市林南街3號	07-2238926
九九登山體育用品	802高雄市四維三路137號	07-3382805
天龍	802高雄市苓雅區光華一路148-65號	07-7163735
好時辰	803高雄市鹽呈區五福四路2號	07-5512296
力百樂休閒用品	804高雄市鼓山三路44號之2	07-5321833
百岳登山體育用品	806高雄市中山二路46號	07-3326931
拉業	807高雄市三民區立德街33號	07-2866828
強者登山體育用品	807高雄市建工路418號	07-3810569
育興	807高雄市三民區義華路408號	07-3818069
野外營	807高雄市民族一路188號	07-3822383
牧野莊	807高雄市大順二路277號	07-3848388
山之溪谷	807高雄市大順二路173號	07-3892503
海峰登山潛水	812高雄市宏平路311號	07-8024078
海豐	812高雄市小港區宏平路311號	07-8024078
原野登山體育用品	813高雄市後昌路605號	07-3629602
自強登山用品	820高雄縣岡山路451號	07-6210762
山翔體育用品	820高雄縣岡山鎮壽天路40號	07-6222430
山尚體育用品	820高雄縣岡山鎮仁壽路40號	07-6260455
台秀	820高雄縣岡山鎮公園西路三段161號	07-6262542
名亨體育	820高雄縣岡山鎮介壽西路62號	07-6266526
頂尖登山野營	830高雄縣鳳山市光復路2段341號	07-7426510
來來登山用品	830高雄縣鳳山市光遠路127號	07-7433188
屏東市	地址	電話	備註
休閒家休閒旅遊用品	900屏東市民和路79號	08-7237870
山之戀	900屏東市光復路133-1號	08-7339138
野牛屋	900屏東市大興路大義巷20號	08-7534884
宜蘭縣市	地址	電話	備註
青友野營	260宜蘭市民權路1段26號	039-362878
遊遍羅東	265宜蘭市羅東鎮公正路222號	039-566296	網站
高登攀山旅遊用品	265宜蘭縣羅東鎮民權路171之1號	039-568621
花蓮縣市	地址	電話	備註
健野(花蓮)	970花蓮市節約街29號	038-340802	網站
遊遍天下	970花蓮市國聯五路2之14號	038-357718
青友社	970花蓮市中山路743號	038-568815
永芳體育用品	981花蓮縣玉里鎮中正路33號	038-882779
台東市	地址	電話	備註
千田體育用品	950台東市新生路242號	08-9325454
友愛自然	950台東市翁正路251巷19號	08-9345997

　

　

[轉貼]AutoCAD VBA基礎

http://chenjianwei1981.blog.163.com/blog/static/12813532007124348510/

一、AutoCAD ActiveX 技術概述

AutoCAD ActiveX使用戶能夠從AutoCAD的內部或外部以編程方式來操作AutoCAD。它是通過使AutoCAD對像暴露於「外部世界」來實現這一功能的。暴露這些對像後，可以通過多種不同的編程語言和環境以及其他應用程序（例如Microsoft Word VBA 或Excel VBA）對其進行訪問。

在AutoCAD中實現ActiveX接口有兩大優點：

1.更多的編程環境可以編程訪問AutoCAD 圖形。在ActiveX Automation出現之前，開發人員只能用AutoLISP或 C++ 接口訪問AutoCAD圖形。

2.與其他Windows應用程序（例如Microsoft Excel和Word）共享數據比以前要方便得多。

對象是所有ActiveX 應用程序的主要構造塊。每一個顯示的對象均精確代表一個 AutoCAD 組件。AutoCAD ActiveX 接口中有許多不同類型的對象。例如：

1)直線、圓弧、文字和標注等圖形對象都是對象。
    2)線型與標注樣式等樣式設置都是對象。
    3)圖層、編組和塊等組織結構都是對象。
    4)視圖與視口等圖形顯示都是對象。
    5)甚至圖形、AutoCAD 應用程序本身也是對象。

二、AutoCAD VBA接口概述

Microsoft VBA是一個面向對象的編程環境，可提供類似Visual Basic 6 (VB) 的豐富開發功能。VBA和VB的主要差別是VBA和AutoCAD在同一進程空間中運行，提供的是具有AutoCAD智能的、非常快速的編程環境。

VBA也向其他支持VBA的應用程序提供應用程序集成。這就意味著AutoCAD（使用其他應用程序對像庫）可以是如Microsoft Word或Excel之類的其他應用程序的Automation控制程序。

可以單獨購買獨立開發版的Visual Basic 6，為AutoCAD VBA 提供額外的組件，例如外部的數據庫引擎和報表編寫功能。

在 AutoCAD 中實現 VBA 有四大優點：

1)VBA 及其環境易於學習和使用。
    2)VBA 可與 AutoCAD 在同一進程空間中運行。這使程序執行得非常快。
    3)對話框的構造快速而有效。這使開發人員可以構造原型應用程序並迅速收到設計的反饋。
    4)工程可以是獨立的，也可以嵌入到圖形中。這樣就為開發人員提供了非常靈活的方式來發佈他們的應用程序。

三、VBA 在 AutoCAD 中的實現方式

VBA 通過 AutoCAD ActiveX Automation 接口將消息發送到 AutoCAD。AutoCAD VBA 允許 VBA 環境與 AutoCAD 同時運行，並通過 ActiveX Automation 接口對 AutoCAD 進行編程控制。AutoCAD、ActiveX Automation 和 VBA 的這種結合方式不僅為操作 AutoCAD 對象，而且為向其他應用程序發送或檢索數據提供了功能極為強大的接口。

在 AutoCAD 中有三個定義 AcitveX 和 VBA 編程的基本元素。

第一個元素是 AutoCAD 本身，它擁有一個豐富的對象集，其中封裝了 AutoCAD 圖元、數據和命令。因為 AutoCAD 是一個設計為具有多層接口的開放架構應用程序，因此熟悉 AutoCAD 編程功能對於有效使用 VBA 來說是非常必要的。如果以前使用過 AutoLISP 編程來控制 AutoCAD，就應該對 AutoCAD 工具有一定的瞭解。然而，VBA 的基於對象的處理方式和AutoLISP的方式卻很不一樣。

第二個元素是AutoCAD ActiveX Automation接口，它建立與 AutoCAD 對象的消息傳遞（通訊）。在 VBA 中編程需要對ActiveX Automation 有基本的瞭解。《ActiveX and VBA Reference》中介紹了 AutoCAD ActiveX Automation 接口。即使是有經驗的 VB 編程人員也會發現要理解和開發 AutoCAD VBA 應用程序，AutoCAD ActiveX Automation 接口是非常重要的。

第三個元素是VBA編程環境，它具有自己的對象集、關鍵字和常量等，能提供程序流、控制、調試和執行等功能。AutoCAD VBA 幫助包含Microsoft VBA擴展幫助，可以通過以下方法從VBA IDE中對其進行訪問：

四、VB.NET訪問AutoCAD Automation 對像

要通過 Microsoft Visual StudioR .NET 完全訪問 AutoCAD Automation 對象，請創建以下文件的引用：

1)AutoCAD 2007類型庫「acax17enu.tlb」，位於「C:\Program Files\Common Files\Autodesk Shared」目錄中。
    2)AutoCAD/ObjectDBX Common 17.0 類型庫「axdb17enu.tlb」，位於「C:\Program Files\Common Files\Autodesk Shared」目錄中。

這些引用將提供以下主要交互操作部件：Autodesk.AutoCAD.Interop.dll（用於 AutoCAD 專用類型）和 Autodesk.AutoCAD.Interop.Common.dll（用於 ObjectDBXTM 宿主應用程序共享的類型）。Interop 程序集位於全局程序集緩存中，它們會將Automation對像映射到 .NET 的對等對象。

引用了類型庫之後，可以在Microsoft Visual Studio .NET中聲明基於AutoCAD的變量，如下例所示：

Dim objAcad As Autodesk.AutoCAD.Interop.AcadApplication

Dim objLine As Autodesk.AutoCAD.Interop.Common.AcadLine

可以在 AutoCAD 中使用NETLOAD命令加載 .NET 應用程序。

 

Microsoft .NET Framework 3.5

Microsoft .NET Framework 3.5

下載

http://www.microsoft.com/downloads/info.aspx?na=90&p=&SrcDisplayLang=en&SrcCategoryId=&SrcFamilyId=333325fd-ae52-4e35-b531-508d977d32a6&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f7%2f0%2f3%2f703455ee-a747-4cc8-bd3e-98a615c3aedb%2fdotNetFx35setupexe