lisp在midp处放置“点”

pipefitter72 · 发表于 2022-7-5 22:51:17

Pipefitter72去下载enabler，但它有200多mb，所以暂时放弃了。若你们能得到一些对象转储，那个么它们可能会出现一些模式，代码可以盲写。

BIGAL · 发表于 2022-7-5 22:56:17

pipefitter72 · 发表于 2022-7-5 22:59:25

earlier in the thread I posted a screen shot. and I posted 2 links to dropbox. one is for 2014 dwg and other is same dwg in 2007 format. If you do not have MEP you might have to install mep object enablers for your version of autocad from website.
http://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/ENU/123112/files/autocad-object-enablers-html.html

pipefitter72 · 发表于 2022-7-5 23:03:00

Dumpit results

Select object: ; IMapsComWrap: IMapsComWrap Interface
; Property values:
; Application (RO) = #
; Area = 0.0
; CustomData = "GPM - KW/Steps - Louver Free Area = 0.0,Motor HP = ,Pump Impeller  = ,Equipment Tag (all) = ,Max/Min CFM - CFM = ,Model # = ,Motor Frame = ,PIU Fan CFM - Pump Head = ,Manufacturer = Weldbend,Vert/Horz FD - Voltage/PH = ,Instructions - FD Access Door = ,L?"
; Description = "S40 LR 90 [ 3 ]"
; Document (RO) = #
; Elevation = "CL=10'-8\""
; EndSize = "BE 3, BE 3, "
; EntityTransparency = "ByLayer"
; Handle (RO) = "1009A"
; HasExtensionDictionary (RO) = 0
; Hyperlinks (RO) = #
; ItemNumber = "4"
; Layer = "MP-JTFR"
; LengthAngle = 90.0
; Linetype = "BYLAYER"
; LinetypeScale = 1.0
; Lineweight = -1
; Material = "ByLayer"
; Notes = ""
; ObjectID (RO) = 42
; ObjectID32 (RO) = 42
; ObjectName (RO) = "MapsContainer"
; OwnerID (RO) = 43
; OwnerID32 (RO) = 43
; PlotStyleName = "ByLayer"
; Points = "ENDPOINTS: 19670.48,8807.07,1328.00;19665.98,8802.57,1328.00; MIDPOINT: 19665.98,8807.07,1328.00"
; Section = "Level 1"
; ServiceName = "JTFR Anvil2Thrd150MIxS40"
; Status = "  0: Design"
Select object:  ; TrueColor = #
; Visible = -1
; Weight = 4.8
Command:

BIGAL · 发表于 2022-7-5 23:04:14

The dump gives some clues "Points" is handy draw a line using the co-ords and see where it fits make sure snap is off, scale same object by 2 times see if the line length is twice . Compare two objects rotated 90 degs and see if "lengthangle" changes. If you think of the object as a block then its possible to work out the mid pt you need.

Do you have a block called JTFR Anvil2Thrd150MIxS40 ?

hanhphuc · 发表于 2022-7-5 23:08:07

Thank you BIGAL, though i can't help in this thread ,just curious if we can handle proxy object it could be useful
as shown the points type is 'STR, maybe "...MIDPOINT:19665.98,8807.07,1328.00" is the key?

hertz hound · 发表于 2022-7-5 23:13:21

Just curious if you have tried the Autodesk point layout software?

http://knowledge.autodesk.com/support/autocad/learn-explore/caas/blog/beyonddesign.typepad.com/posts/2014/06/point-layout-2015-is-here.html

I have no idea how much it cost, but they do have a trial version. We are still tape measure and string, so dimensions are all I use. I see the other trades all using the total station on the last few jobs.

pipefitter72 · 发表于 2022-7-5 23:15:48

They have been looking at the points software, we shall see,

BIGAL · 发表于 2022-7-5 23:18:51

Pipefitter72 went to download enabler but its 200+mb so gave up for moment if you can get some object dumps then their may be some patterns appearing and code can be written blind.

[编程交流] lisp在midp处放置“点”

发表回复

精选推荐