PlannerRoad
Guest
불평하지 않고, 우리가 집에서 할 수있는 많은 운동을 줄 것입니다! : 큰 글린 :· ... 나는 내 머리 아래에 얻을하려고 해요, 하지만 내 손에서 vba 여전히 내 인생을 만들 수 없습니다 내 입에 의해 복잡 한 내 인생을 만들 수 없습니다 ... grgrgrgrggrgrgrgrgrgrgrgrgr
불평하지 않고, 우리가 집에서 할 수있는 많은 운동을 줄 것입니다! : 큰 글린 :· ... 나는 내 머리 아래에 얻을하려고 해요, 하지만 내 손에서 vba 여전히 내 인생을 만들 수 없습니다 내 입에 의해 복잡 한 내 인생을 만들 수 없습니다 ... grgrgrgrggrgrgrgrgrgrgrgrgr
나는 osmosis에 노력하고 있습니다. 하지만 그것은 많이 작동하지 않습니다! : 융합 :불평하지 않고, 우리가 집에서 할 수있는 많은 운동을 줄 것입니다! : 큰 글린 :
array로 private 함수 get_layxdata()
배열로 디엠 myxdata = 아무것도
데이터베이스로 db 사용 = thisdatabase
autodesk.autocad.databaseservices.transaction = tr_start로 tr 사용
layertable = tr.getobject (db.layertableid, openmode.forread)로 lt를 사용하여
layertablerecord = tr.getobject(lt("0"), openmode.forread)로 r을 사용
만약 r.xdata <> 아무것도
파일 형식: .xdata.asarray
끝 면
트렁크 ()
끝 사용
끝 사용
끝 사용
끝 사용
myxdata를 반환
끝 기능
하위 addline()
dim ptstr (0에서 2) 두 배로
ptstr(0) = 5: ptstr(1) = 5: ptstr(2) = 0#
dim ptend(0에서 2) 더블
ptend(0) = 12: ptend(1) = 3: ptend(2) = 0#
'모델 공간의 라인 객체 만들기
dim lineobj로 acadline
set lineobj = thisdrawing.modelspace.addline(ptstr, 종료)
끝 이하
autodesk.autocad.runtime 가져오기
autodesk.autocad.applicationservices 가져 오기
autodesk.autocad.databaseservices 가져 오기
autodesk.autocad.geometry 가져오기
<commandmethod("addline")> _ 한국어
공공 하위 addline()
'' 현재 문서와 데이터베이스를 얻을
문서 = application.documentmanager.mdiactivedocument로의 디엠 acdoc
데이터베이스 = acdoc.database
'' 거래 시작
거래 = accurdb.transactionmanager.starttransaction()로 actrans를 사용
'' 블록 테이블을 열고 read
dim acblktbl 블록 테이블
acblktbl = actrans.getobject (accurdb.blocktableid, openmode.forread)
''는 블록 테이블 레코드 모델 공간을 엽니다.
blocktablerecord로 dim acblktblrec
acblktblrec = actrans.getobject (acblktbl (blocktablerecord.modelspace), _
openmode.forwrite)
'' 5,5에서 시작하여 12,3에서 끝납니다.
라인 = 새로운 라인 (새로운 point3d(5, 5, 0), 새로운 point3d(12, 3, 0))
acline.setdatabasedefaults ()
'' 블록 테이블 레코드 및 거래에 새로운 객체를 추가
acblktblrec.appendentity (액세스)
actrans.addnewlycreateddbobject (대략, 진실한)
'' 데이터베이스에 새로운 개체를 저장
actrans.commit ()를
끝 사용
끝 이하</commandmethod("addline")>