« previous next »
Pages: 1 [2]  All |   Go Down

Author Topic: If you are smart...  (Read 15130 times)

0 Members and 1 Guest are viewing this topic.

ribarm

  • Gator
  • Posts: 3264
  • Marko Ribar, architect
Re: If you are smart...
« Reply #15 on: September 26, 2014, 04:45:13 AM »
This is what I get... There are many (310 . "bla bla bla") pairs...

Code - Auto/Visual Lisp: [Select]
  1. (defun c:dumpalldxfdata ( / dumpdxf e )
  2.  
  3.   (setq e (car (entsel "\nPick entity to dump all its DXF data")))
  4.  
  5.   (defun dumpdxf ( el )
  6.     (if el
  7.       (if
  8.         (and
  9.           (not (eq (caar el) -1))
  10.           (not (eq (caar el) 330))
  11.           (eq (type (cdar el)) 'ename)
  12.         )
  13.         (dumpdxf (entget (cdar el) '("*")))
  14.         (cons (car el)
  15.           (vl-remove (car el)
  16.             (dumpdxf (cdr el))
  17.           )
  18.         )
  19.       )
  20.     )
  21.   )
  22.  
  23.   (terpri)
  24.   (print (dumpdxf (entget e '("*"))))
  25.   (princ)
  26. )
  27.  
  28. ;;; OUTPUT ;;;
  29. ;|
  30. Pick entity to dump all its DXF data
  31.  
  32. ((-1 . <Entity name: 7ffffb05c60>) (0 . "3DSOLID") (330 . <Entity name: 7ffffb039f0>) (5 . "1BE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbModelerGeometry") (70 . 1) (1 . "mngoo mi m nm          ") (1 . "ni ^*+0;:,4 ^*+0\\^[ nf ^LR mnfqoqoqjioo QK o  ") (1 . "n fqfffffffffffffffj:rooh n:rono ") (1 . ">,27:>;:- {rn rn _nm mnfqoqoqjioo |") (1 . "=0;& {rn rn {rn {m {rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn {k {rn {m |") (1 . "9><: {rn rn {rn {j {i {l {rn {h 90-(>-; ,6183: |") (1 . "9><: {rn rn {rn {g {f {l {rn {no -:):-,:; ,6183: |") (1 . "300/ {rn rn {rn {nn {nm {k |") (1 . "<01:r,*-9><: {rn rn {rn nlqjjggkinhhkhlfgl iqoiinjijmmgggfkih o oqhfonlggljgfjmkmjf oqinmfmhfohihhijhkg o roqlifologgjfikgmfjg oqkhjhmjgmjnilknhmh o n V V o n oqiomohghhgjomhgnki 90-(>-; V V V V |") (1 . "9><: {rn rn {rn {rn {nl {l {rn {nk 90-(>-; ,6183: |") (1 . "300/ {rn rn {rn {rn {nj {j |") (1 . "/3>1:r,*-9><: {rn rn {rn nlqjjggkinhhkhlfgl iqoiinjijmmgggfkih o oqhfonlggljgfjmkmjf oqinmfmhfohihhijhkg o o o rn 90-(>-;@) V V V V |") (1 . "300/ {rn rn {rn {rn {ni {k |") (1 . "<0:;8: {rn rn {rn {nm {nm {nh {ng 90-(>-; {i o {rn |") (1 . "300/ {rn rn {rn {rn {nh {g |") (1 . "/3>1:r,*-9><: {rn rn {rn mjqhljilmoolfigghk njqjnnfjkjjmoimnmm o oqhfonlggljgfjmkmjf oqinmfmhfohihhijhkg o o o rn 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {nj {nj {ni {nf -:):-,:; {f o {rn |") (1 . "<0:;8: {rn rn {rn {ni {ni {nj {nf 90-(>-; {nn o {rn |") (1 . "<0:;8: {rn rn {rn {nh {nh {nm {ng -:):-,:; {nl o {rn |") (1 . ":;8: {rn rn {rn {mo o {mo iqmglngjlohnhfjgim {nm {mn 90-(>-; _h *1410(1 |") (1 . ":;8: {rn rn {rn {mm o {mm iqmglngjlohnhfjgim {ni {ml 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {ng m {mk |") (1 . ":336/,:r<*-): {rn rn {rn mjqhljilmoolfigghk njqjnnfjkjjmoimnmm o roqhfonlggljgfjmkmjf roqinmfmhfohihhijhkg ro roqlifologgjfikgmfjg oqkhjhmjgmjnilknhmh o n V V |") (1 . "):-+:' {rn rn {rn {nf m {mj |") (1 . ":336/,:r<*-): {rn rn {rn nlqjjggkinhhkhlfgl iqoiinjijmmgggfkih o oqhfonlggljgfjmkmjf oqinmfmhfohihhijhkg o roqlifologgjfikgmfjg oqkhjhmjgmjnilknhmh o n V V |") (1 . "/061+ {rn rn {rn mjqliiionnngookokj njqfghigolhhmmjjlh o |") (1 . "/061+ {rn rn {rn nlqngfgnjmfnjofnjk iqjknggmlkgojmlik o |") (290 . 1) (2 . "{1BF632FC-6C4E-4B86-BA05-35BA0852B886}") (100 . "AcDb3dSolid") (-1 . <Entity name: 7ffffb05c90>) (0 . "ACSH_HISTORY_CLASS") (330 . <Entity name: 7ffffb05c60>) (5 . "1C1") (100 . "AcDbShHistory") (90 . 31) (91 . 55) (-1 . <Entity name: 7ffffb05c80>) (0 . "ACAD_EVALUATION_GRAPH") (330 . <Entity name: 7ffffb05c90>) (5 . "1C0") (100 . "AcDbEvalGraph") (96 . 1) (97 . 1) (91 . 0) (93 . 32) (95 . 1) (-1 . <Entity name: 7ffffb05c70>) (0 . "ACSH_SWEEP_CLASS") (330 . <Entity name: 7ffffb05c80>) (5 . "1BF") (100 . "AcDbEvalExpr") (90 . 1) (98 . 31) (99 . 55) (100 . "AcDbShHistoryNode") (40 . 1.0) (41 . 0.0) (42 . 0.0) (43 . 0.0) (44 . 0.0) (45 . 1.0) (46 . 0.0) (47 . 0.0) (48 . 0.0) (49 . 0.0) (50 . 1.0) (51 . 0.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (55 . 1.0) (62 . 256) (92 . 0) (-1 . <Entity name: 7ffffb03de0>) (0 . "MATERIAL") (5 . "96") (102 . "{ACAD_XDICTIONARY") (-1 . <Entity name: 7ffffb05960>) (0 . "DICTIONARY") (330 . <Entity name: 7ffffb03de0>) (5 . "186") (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 . "FBXASSET") (-1 . <Entity name: 7ffffb05970>) (0 . "XRECORD") (5 . "187") (102 . "{ACAD_REACTORS") (330 . <Entity name: 7ffffb05960>) (102 . "}") (100 . "AcDbXrecord") (90 . 429727718) (1 . "887D55A9-D0DD-414E-B741-A7DCD4DA2B4C") (310 . "504B03040A0000080000B670623B3DEE336E79000000790000001B0000006175746F6465736B2D64657369676E2D7061636B6167652E786D6C3C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D3822203F3E3C666F726D6174733E3C666F726D61743E687474703A2F2F736368656D612E") (310 . "6175746F6465736B2E636F6D2F64657369676E2D7061636B6167652F323030393C2F666F726D61743E3C2F666F726D6174733E504B0304140006080800B670623BD486FD9CA0000000F4000000130000005B436F6E74656E745F54797065735D2E786D6C7D8EC10E82300C865F65E91D8A1E8C310C0EEA1BF002731658846E") (310 . "D98AC1B77784ABF1D8FE5FBFBF75BBCE937A534C
  33. CEB38643598122B6FEE978D0B0485F9C41B54DDD7D022595594E1A469170414C76A4D9A4D207E29CF43ECE46F218070CC6BECC4078ACAA135ACF422C856C0E68EA1BF5669944DDD7BCDE7B1F8E415D77AECB980613C2E4AC91FC167A2B244592486606FC29C8FD7F045B9A") (310 . "EF7053A7E60B504B0304140006080800B670623BBC1638F5EC0000007C01000008000000636F72652E786D6C8D90416EC3201045AF82665B61836BE2D8C24471DB9CA01740401C94182C03558F5F9C3852BBEB6A467FFE9B197D7EF89E6EE8CB2CC17AD7032D0820E394D7D68D3DA478C67B4007C117EFE32F1B202727D3C3") (310 . "2A83E0E3E2D3BC49CABB685CCCAAF3DA6CA20CC14440EA969B1E82BA98491632C5EC08D76296EA2A4753D06797E194AC468F2356E77DF66CCD02825543D50CACC62D39ED70FDC68EB8FD68F6F8787A6784342D1DDA1D2F5758F068A7E77DB518198D065111D2624A31A93E69DD11D6D5EC85EC3B4278B9DAFF4069D6FF8492") (310 . "75F1B5DADE7D600104CD8FDC0782976B16B9DC83CA75CD4DFC00504B0304140006080800B670623B55019EA25F0000007C00000007000000636E782E786D6C4DCB3B0E80201045D1AD90E915ED2CF8AC45050C11660C8261F98AB1B07AC9C97D42D718D865D3E909258CFD00CCE24AC6E326A164D74DC0B4128928FF326038") (310 . "472BA13128B1252AC747C6BAB984FC68F0B87FE8960A5C09FE86CFB69FBA01504B0304140006080800B670623B3586FFB671010000D40300000C0000006662782F636F72652E786D6CC553ED6E8320147D15C2DF4541A76D6D90A6DDD627D80B50A4CE54C120983EFEAE1F4DD7A55BBA5FF3879273EEE59E7310B6393735EA") (310 . "95ED2AA3731C851423A5A5292A5DE6D8BB63B0C268C39935C67D29C3488B46E578803167A535BE9D2169B453DA01AA4DA16650749D7218C91A1639EEE4876A4428BC838AEE14B6429E44A9C228041AEA38EB9C0501681A32BC313F1ECE8C4C3867DE57C5CC56054CAB8E95B298A7F12E5EEED224C8E87E11242FE936C8DE96") (310 . "AB60BB7F4D295D66D12E5B30323473E6AAE6A24E5A259C2A308F29CD82280A68FC1E256B9AAE93F489AED694323294DF34F9B678B0C957DA3DC7B3DCA9ADC33C022123F1CD2D44E450277AD04338234388F01913BE0D1A0281909D38D4171F27807A259DB1093085F157AA17B557309586747CD0CF0B46A64E983A6E0EAEEF") (310 . "CE881F9EF1FB8E70D44297604238581EBC1B74B249C31C5AAB6CD0BB33D2C636A27ECCC62F0EFF445DC5DF95244D6DEC7F2922F30191F9F720C37DE49F504B0304140006080800B670623B4220A0FF7D0000009D0000000B0000006662782F636E782E786D6C4DCCD10A83201886E15B91FFDCE542CB0335D0EC3E6259C84A") (310 . "C3E9D8E5AF46073BFAE0E1E315DD675BD1DBA5978F41C2FD4600B9F088930F8B849267CC01754AA418F3DF0D50183727E164506249B1EC174D6E1ECB9A0F5D7D785E68DB8151CD286E5A5363CA6B8A39E90D36D40E96B086F55A43A544F52B1D7B86D517504B0304140006080800B670623B2FA3FEDE290100001202000031") (310 . "0000006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F636F72652E786D6C8D515B6EC32010BC0AE22B55850D2E386E848994D7097A0117488A1283C5A3CAF10BB523B57FF961D1ECCCECC0F2ED7DBC816FED8371B687A4C210682B9D32F6D2C314CFA883602BB8772E") (310 . "FEA141608751F7B0C050F08B77695A20E96CD43666D43AA5177008414708E42D5F7A18E4971E876A483133C2B59A06791D2EBA22556E679EE021FA1C00CC43CA09C5717D6274C7286AD7FB06D1AEA1A8C3873DDAD3E3E98859CB0EBB1DAF67A1E02919B5C88DCA71CCD968FFAC49110B1ECDF8882FBD1EA256503418BF2342") (310 . "106E3E08DD60B6A1EC15771B8C795DE8FF4469524F8A92B1F1AD59E2CEB20005E1F5DC105CB9F4797B84D1F7C9F908CABC55D0F2050A5C61CC1AD2F27A26E6E767C7962E8E213A9FBF7775FDCC5CC266DB960A5E970DE5F2BBBE5CCB36C50F504B0304140006080800B670623B1B8617914E01000033030000300000006662") (310 . "782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F636E782E786D6CD593C16EC32010447F0571AD6CE3D489D20813A9877E410FBD62D82434182CC055F3F75D1292E692438FBD206B7698593D61BEFD1E2DF982108D773D6D6B460938E5B571FB9ECE6957AD29D90A1EBC4F77") (310 . "364A9C1CA1A759A682EF839FA72269D8C9D92654AD71C72206887E0E0A22CAF926B15E498B01E0AA19451807D01A34B919F16B070157417138917400F2F6FA41FCF0092A45DEE414C19BDC21783E4BD39D891265658C3D8DEA00A3ACE59CBC8678ACB54CB26EEB6BD7839D7E9348BE70AD9C8321B9BCA7F9A4A26C542347DE") (310 . "E050F09802D22BA6749A800A394DD62899107273365E3C82CFC6A55557BC06C10774B7ABE7AEC3B0F34CF06446280E154026D0542C187BA9DAB6628BF7B6DBB0E5A65B3EB1F58631DE64BBE083F7B65CC218087E22CABB042E51D1F2268F1FE12B3EA24D40D63E9CFE00120194D60B9D5BC67FE6D39CDF37E20AF817881F50") (310 . "4B0304140006080800B670623B29652116630500003C100000340000006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F6F626A656374732E786D6
  34. CAD575D739B3814FD2B0CFB0C989834C90EA1639B24E3E9A6EDD4D3CE3E64C623834CD8006224913AFDF57B040203") (310 . "B65BEF871F0C12D2FD3CF7E8CA7FBFCB33E3957291B2E2D674ED8969D02262715A24B76625B7D6B569BC0F7CCE98EC2D338D82E4F4D654D366E0279C55A59E8AE99654991CCDDECFFF3444440B6A1A514684B83545F44C7362934AB2988A173B2692D8C97667BB76B3702836E1A47C1E092D09A78584A5982F20C5688C7287") (310 . "C389E904BEA3BE07BEFAD7ABA6A75739B53F43FD69212429A20365233153D70BEF2E2E6FAC4BCF9B5ADEBB0BD79ADFCF43CBBD9A4E16EF168B9BD9DD0D140BC921495BC2E9D60C1E101B9E46BED37CEA2CD6861F3329624541A3DA7F7858DBAC25C6B4A4458C3CA654405BCFEBC970E8AAD8F43E4FD558ABEC4F9FE7557F47") (310 . "4F506B7BFBEC5BCA367FC105710E2AB8A00A554D7CB4A30DFE26FBA86D18CBF4B75418399194A72433B274C3097F33032C554B027F2046A1932B842B0FCCC0DDCBEBDB8AD2F835768F59B9ADB24C41D30C6A64AF817F2A456D59FA83F2E3DA60137255A585BCD60EC9B7929AC18DEFD49381AF1ED30BFDB109A4B1CD488294") (310 . "C3CDE6EBC8D185AABD6568061FEE37BB95AAC7E3CA4BCE4ACAA5820FA0D526AE7DAA2869B5EE5999531BE0CC20E6FBA07C41E43FA27CF7A6206F3CDD793B4F6B919C1462CB788EDCD893FA674CDA17AB7B3B7C019F8D561FAEE966FED562DFE98C1D12C6A9FC015C2A35D7FF3D7FC398F591DA4B5FE0BFA2C0189FEA50AE22") (310 . "92817A1ED3020951A03432862970F976B33383259812CC8E5D240BBA801CBCF8CE2BBEE3BF910DB6AAD5F79E05123AE2DB33981FB1ACCB02B69D00CB014FD68AB573A7627EF9BFD4CC2C5C7D58557C4B22FAA88925A4DBB44825CECE3D78FB060D1231F0E885BE7D673C86A3874958F593906B5502D1563157814FDAC3420D") (310 . "F69A070A22EC4B98E23CFF171A1E5311D12C23056555ABA53B8614563B92D17D02AAB009E8F46284624E5F53D5490C560CCCC2591FF1B45421EB0EBD8EA7ED13BE7C5D7E0428CD60FEF60779EB13E6664FF711CB185F6FDED60D139A001FF60CD1FD6D086F1D51474901E26B2CB794A343BC8ED3EDB612E0DD2351FCB65CF4") (310 . "33D511C9E14B5B40ADC6A6263DB0336A8F700DDF56271A024E70B0B3629DE21847591E55DED73D56206AB927E46FAABC5C939C55853C274C93D69FD6FA4E78BF8B11DF898C9ECD60553FAD39283BA6F18984AA23E8884F83F45C5F5F859797B31B2B9C84A1E5B9DE9D35BFF25C6B76152E422F9C5DCC3D847F5801ED09D5AF") (310 . "41441327A25FF15487F9EB725FB666F048A4701E9A827292E6F97569A32DF61DEC01C0BB8DCBBCCC684E0B49147C1FD54BF685A0AB18C868E6973949E819523E3DAC463660E68C7D9F55A9D1EFA3BD7A76A16AE1A810F95CE59B82A4D968A376DC2E8B44BBDD86B27B368CDE0ED548C7137DA860591A83706223A12CA712B4") (310 . "7306DBF39C0A20A6DF95C7FAF670C6EED7A61F946493D1D6926782963813403548A78AE470DEF80D2D9CEAA26E4D1C76F60BFE74219A06527D6B82DF641A51616F703CAAC6A7160E08A00BEB4810A0274592A1B36E3675E36E978A0DE80727A0D6DF2D39A75BD27E0D8837276589537B40ABB56D5A41F48F1C6FCD3188C4EB") (310 . "A6929D2FFB89CE995A4D00AE813BDD032DC48B56BD437DFDDC2DD7AED70C2272D63DE9A72068A45A92F0A4BE17A8A06B9366E16707AD80B1FC649459952097E74BB23805982B55E0401150A165964402AA8BDF9F3E7386BB686EDCA780C0D382E5392BF460A6EFB2C6EA1937D3F809B440D5F5435C4C5CF7A9EEFAF54564BD") (310 . "2182DA24162F98680B4E7930C21A0079709CEAEB99A372305ABE0C0D7D6078105A83F6A0296DAEE1068A47DD1C55A9F4C9B2FC69E3EFD44B81028E963DF81B504B0304140006080000B670623B000000000000000000000000350000006662782F45374635344235342D363743322D343832342D383044432D433445464530") (310 . "3536354442422F76657274696365732E62696E504B0304140006080800B670623BF270F1330600000004000000360000006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F747269616E676C65732E62696E636660600000504B0304140006080000B670623B00000000") (310 . "0000000000000000370000006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F617474726962757465732E62696E504B0304140006080800B670623B08DA0BD19000000041010000360000006662782F45374635344235342D363743322D343832342D383044432D4334") (310 . "454645303536354442422F6469726563746F72792E786D6C858F410AC3201045AF22B36F53E9A60B35CBEEBAE80D244E44489C6234F4F835464A48035D0DF398FF9F8AF63D0E6CC63039F212F8F9020C7D47C6792B21C5FE7403D62A1188E2E60C98D7234A5830286103A55745067B9D86B8A3CF9C7F90C11DE607FB144396") (310 . "D7B6A82D282E9A152AD114D5EF2CB866EEE831B8EEA07A7BB5A8D7D61A2BAAEB7FD5F70921FF497D00504B0304140006080800B670623B6378F24DFF000000A00100003B0000006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F7265736F75726365732F636F72652E") (310 . "786D6C8D504B6E833
  35. 010BD0A9A6D65B0094E42641C85B639412F6099496225D8C89FAAC7AF09546A77DDCC8CDE47F3F4C4F16B7C149FE88371B603565228D06A37187BED20C50BD9437194C23B177FC9A0B06AC40E6618A4B87A97A615D2CE46B431A3D60DB8822A048C50E8473E3A08FA86A32A558A5911EEE5A4F45D5DB1") (310 . "6465A6B34E8A107D0E502C4FE609D26370C96B0CA25A58295232C3AA3143FE692E063D485EF7F5AEE71BD2D2F39634AFFC44DAF7DD9E9CCE6F9CD25DCBFA762BAAD92C4534E34F46ED51451C40D694B6843142EB0FD61C283F34FC85EE0F948A6A96FF31A569F8A729191B37F51A77B105902C0779125254735F793DCBCC7B") (310 . "EE567E03504B010214000A0000080000B670623B3DEE336E79000000790000001B00000000000000000000000000000000006175746F6465736B2D64657369676E2D7061636B6167652E786D6C504B01021400140006080800B670623BD486FD9CA0000000F40000001300000000000000000000000000B20000005B436F6E") (310 . "74656E745F54797065735D2E786D6C504B01021400140006080800B670623BBC1638F5EC0000007C010000080000000000000000000000000083010000636F72652E786D6C504B01021400140006080800B670623B55019EA25F0000007C000000070000000000000000000000000095020000636E782E786D6C504B010214") (310 . "00140006080800B670623B3586FFB671010000D40300000C00000000000000000000000000190300006662782F636F72652E786D6C504B01021400140006080800B670623B4220A0FF7D0000009D0000000B00000000000000000000000000B40400006662782F636E782E786D6C504B01021400140006080800B670623B2F") (310 . "A3FEDE290100001202000031000000000000000000000000005A0500006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F636F72652E786D6C504B01021400140006080800B670623B1B8617914E010000330300003000000000000000000000000000D2060000666278") (310 . "2F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F636E782E786D6C504B01021400140006080800B670623B29652116630500003C10000034000000000000000000000000006E0800006662782F45374635344235342D363743322D343832342D383044432D4334454645303536") (310 . "354442422F6F626A656374732E786D6C504B01021400140006080000B670623B0000000000000000000000003500000000000000000000000000230E00006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F76657274696365732E62696E504B01021400140006080800") (310 . "B670623BF270F13306000000040000003600000000000000000000000000760E00006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F747269616E676C65732E62696E504B01021400140006080000B670623B0000000000000000000000003700000000000000000000") (310 . "000000D00E00006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F617474726962757465732E62696E504B01021400140006080800B670623B08DA0BD190000000410100003600000000000000000000000000250F00006662782F45374635344235342D363743322D34") (310 . "3832342D383044432D4334454645303536354442422F6469726563746F72792E786D6C504B01021400140006080800B670623B6378F24DFF000000A00100003B00000000000000000000000000091000006662782F45374635344235342D363743322D343832342D383044432D4334454645303536354442422F7265736F75") (310 . "726365732F636F72652E786D6C504B0506000000000E000E0080040000611100000000"))
  36. |;
  37.  

(EDIT : Updated version of dumpalldxfdata.lsp added)

Code - Auto/Visual Lisp: [Select]
  1. (defun c:dumpalldxfdata ( / dumpdxf e dxf n dxfel )
  2.  
  3.   (defun dumpdxf ( dxfl )
  4.     (if dxfl
  5.       (if
  6.         (and
  7.           (not (eq (caar dxfl) -1))
  8.           (not (eq (caar dxfl) 330))
  9.           (eq (type (cdar dxfl)) 'ename)
  10.         )
  11.         (progn
  12.           (setq dxfel (cons (car dxfl) dxfel))
  13.           (cons (car dxfl) (vl-remove (car dxfl) (dumpdxf (cdr dxfl))))
  14.         )
  15.         (cons (car dxfl) (vl-remove (car dxfl) (dumpdxf (cdr dxfl))))
  16.       )
  17.     )
  18.   )
  19.  
  20.   (setq e (car (entsel "\nPick entity to dump all its DXF data")))
  21.   (princ "\n")
  22.   (princ "\n")
  23.   (princ e)
  24.   (princ "\n")
  25.   (foreach dxf (dumpdxf (entget e '("*")))
  26.     (print dxf)
  27.   )
  28.   (princ "\n")
  29.   (foreach e (reverse dxfel)
  30.     (princ "\n")
  31.     (princ e)
  32.     (princ "\n")
  33.     (foreach dxf (dumpdxf (entget (cdr e) '("*")))
  34.       (print dxf)
  35.     )
  36.     (princ "\n")
  37.   )
  38.   (setq dxfel nil)
  39.   (while
  40.     (progn
  41.       (setq dxf (getint "\nSpecify assoc DXF value for ename inspection (-1 - original ename) (330 - not inspected) : "))
  42.       (initget 7)
  43.       (setq n (getint (strcat "\nSpecify which assoc " (itoa dxf) " from begining of entget list to inspect : ")))
  44.       (setq e (cdr (nth (1- n) (acet-list-m-assoc dxf (entget e '("*"))))))
  45.       (if (eq (type e) 'ename)
  46.         (progn
  47.           (princ "\n")
  48.           (princ (cons dxf e))
  49.           (princ "\n")
  50.           (foreach dxf (dumpdxf (entget e '("*")))
  51.             (print dxf)
  52.           )
  53.           (princ "\n")
  54.           (foreach e (reverse dxfel)
  55.             (princ "\n")
  56.             (princ e)
  57.             (princ "\n")
  58.             (foreach dxf (dumpdxf (entget (cdr e) '("*")))
  59.               (print dxf)
  60.             )
  61.             (princ "\n")
  62.           )
  63.           (setq dxfel nil)
  64.           t
  65.         )
  66.         nil
  67.       )
  68.     )
  69.   )
  70.  
  71.   (princ)
  72. )
  73.  
« Last Edit: September 10, 2015, 09:28:47 AM by ribarm »
Logged
Marko Ribar, d.i.a. (graduated engineer of architecture)

:)

M.R. on Youtube

chlh_jd

  • Guest
Re: If you are smart...
« Reply #16 on: September 26, 2014, 03:06:27 PM »
This site  introduce  his method to get sweeplength .
http://knowledge.autodesk.com/support/inventor-products/downloads/caas/discussion/t5/Inventor-IdeaStation/Text-Parameters-to-match-dimension-style/td-p/4940552.html
Code - Visual Basic: [Select]
  1. 'Set a reference to the active part document
  2. Dim oDoc As PartDocument
  3. oDoc = ThisApplication.ActiveDocument
  4.  
  5. Dim oDef As PartComponentDefinition
  6. oDef = oDoc.ComponentDefinition
  7.  
  8. Dim opath As Path
  9. opath = oDef.Features.SweepFeatures.Item("Sweep1").Path
  10.  
  11. Dim TotalLength As Double
  12. TotalLength = 0
  13.  
  14. Dim oCurve As Object
  15. Dim i As Integer
  16.  
  17. For i = 1 To opath.Count
  18. oCurve = opath.Item(i).Curve
  19.  
  20. Dim oCurveEval As CurveEvaluator
  21. oCurveEval = oCurve.Evaluator
  22.  
  23. Dim MinParam As Double
  24. Dim MaxParam As Double
  25. Dim length As Double
  26.  
  27. Call oCurveEval.GetParamExtents(MinParam, MaxParam)
  28. Call oCurveEval.GetLengthAtParam(MinParam, MaxParam, length)
  29.  
  30. TotalLength = TotalLength + length
  31. Next i
  32.  
  33. Dim oparams As Parameters
  34. Dim oparam As Parameter
  35. oparams = oDoc.ComponentDefinition.Parameters
  36. Dim exists As Boolean
  37. exists = False
  38.  
  39. 'Find out if parameter exists
  40. For Each oparam In oparams
  41. If oparam.Name = "Sweeplength" Then exists = True
  42. Next oparam
  43.  
  44. 'Change the value if the parameter exists otherwise add the parameter
  45. If exists Then
  46. oparams.Item("Sweeplength").Value = TotalLength
  47. Else
  48. oparams.UserParameters.AddByValue( "Sweeplength", TotalLength, 11266)
  49. End If
  50. oDoc.Update
  51.  
« Last Edit: September 26, 2014, 03:12:15 PM by chlh_jd »
Logged

Jeff H

  • Needs a day job
  • Posts: 6150
Re: If you are smart...
« Reply #17 on: September 26, 2014, 04:08:52 PM »
ummmhh..........(Head Scratch)
What do you do if your dumb?
Logged

mjfarrell

  • Seagull
  • Posts: 14444
  • Every Student their own Lesson
Re: If you are smart...
« Reply #18 on: September 26, 2014, 04:57:05 PM »
Logged
Be your Best


Michael Farrell
http://primeservicesglobal.com/

ronjonp

  • Needs a day job
  • Posts: 7527
Re: If you are smart...
« Reply #19 on: September 26, 2014, 10:42:23 PM »
Logged

Windows 11 x64 - AutoCAD /C3D 2023
Custom Build PC

GP

  • Newt
  • Posts: 83
  • Vercelli, Italy
Re: If you are smart...
« Reply #20 on: September 27, 2014, 05:08:08 AM »
Quote from: chlh_jd on September 25, 2014, 12:46:47 PM
Nice Solution , GP  :-)

Thank you, chlh_jd



Quote from: ribarm on September 18, 2014, 01:53:57 PM
...How to obtain length value from Geometry property of sweep 3D SOLIDs...

it's easier than I thought

Code: [Select]
(setq 3d-solid (car (entsel)))
(setq 3d-solid-LENGTH (getpropertyvalue 3d-solid "length"))

here
« Last Edit: September 27, 2014, 05:17:50 AM by GP »
Logged

ribarm

  • Gator
  • Posts: 3264
  • Marko Ribar, architect
Re: If you are smart...
« Reply #21 on: September 27, 2014, 05:17:27 AM »
Quote from: GP on September 27, 2014, 05:08:08 AM
Quote from: ribarm on September 18, 2014, 01:53:57 PM
...How to obtain length value from Geometry property of sweep 3D SOLIDs...

(setq 3d-solid (car (entsel)))
(setq 3d-solid-LENGTH (getpropertyvalue 3d-solid "length"))

here

Yes, GP... That's it... You are the KING...
Logged
Marko Ribar, d.i.a. (graduated engineer of architecture)

:)

M.R. on Youtube

chlh_jd

  • Guest
Re: If you are smart...
« Reply #22 on: September 27, 2014, 12:43:03 PM »
Quote from: GP on September 27, 2014, 05:08:08 AM
...
it's easier than I thought

Code: [Select]
(setq 3d-solid (car (entsel)))
(setq 3d-solid-LENGTH (getpropertyvalue 3d-solid "length"))

here

Thanks GP .
getpropertyvalue can't be found in ACAD 2011 , I most use this version now.
Logged

77077

  • Guest
Re: If you are smart...
« Reply #23 on: September 29, 2014, 03:43:35 AM »
 :roll:  I think I was too stupid .
Logged
Pages: 1 [2]  All |   Go Up
« previous next »