Jump to content

All Activity

This stream auto-updates

  1. Past hour
  2. IMHO, if you're not using Visual Studio Community (free) or familiar with .NET API, you really should stop asking for .NET code, as you won't be able to do anything with it even if someone gives it to you. We do not keep the original plines, but can always get them back... here's an old LISP that I've since ported to .NET as a ContextMenu (right click menu) to quickly extract polylines for one or more Alignments. Since C3D Alignment object's EndingStation and StartingStation properties are read-only for LISP API, OP should use something like this, combined with (command "._lengthen" "_t") to set the total length, or (command "._lengthen" "_de") to increase/decrease overall length, then manually modify the Alignment via grips or remove/add geometry. (vl-load-com) (defun c:GetAlgnPlines (/ *error* acDoc clayer ss) (defun *error* (msg) (if ss (vla-delete ss)) (if acDoc (vla-endundomark acDoc)) (cond ((not msg)) ; Normal exit ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit) ((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display it ) (princ) ) (if (ssget "_:L" '((0 . "AECC_ALIGNMENT"))) (progn (vla-startundomark (setq acDoc (vla-get-activedocument (vlax-get-acad-object))) ) (setq clayer (getvar 'clayer)) (vlax-for x (setq ss (vla-get-activeselectionset acDoc)) (vla-put-layer (vlax-invoke x 'getlwpolyline) clayer) ) ) ) (*error* nil) ) Viewing the source code first may help reduce reluctance in the future: https://www.jetbrains.com/decompiler/# FWIW, CopIlot uses ChatGPT, so it really depends on your subscription as to which tier/models you have access to. As example, with M365 subscription you have access to ChatGPT-4 model (specifically the GPT-4-turbo variant), which is better than the free ChatGPT models (last I checked), but having a ChatGPT subscription provides you access to better models. HTH
  3. BlackBox

    APİ call in AutoLisp

    You're both correct; LT now supports AutoLISP (not Visual LISP / COM). Not sure if it even supports Autoloader. I have a customer who paid for one of my Autodesk Exchange store apps, used it for years and now his employer downgraded everyone from full AutoCAD to LT. I had offered to write a (slower but functional) Visual LISP variant of the app they purchased, but no worky. Cheers
  4. Today
  5. SLW210

    Trim Lines inside Rectangs

    I'll look into it. My test drawing was practically the same as yours.
  6. SLW210

    APİ call in AutoLisp

    Good stuff. Here is an older example using JSON... https://github.com/diegomcas/autolisp-web-and-json-utils Here is rundown on LT limitations... https://www.cadforum.cz/en/limitations-of-the-lisp-language-autolisp-visuallisp-autocad-lt-tip13683 IIRC you need ActiveX or other things that LT is lacking to make API calls, I hope I am proven wrong though.
  7. Hi Good morning everyone I've searched the internet for information about this without success, so I thought I'd ask this here. Is it possible to detect with Lisp if any Windows application running is doing so with administrator privileges?
  8. Hello, I need a code to transfer from autocad to excel, autocad will first write an automatic number to the selected text, then transfer the selected automatic number and the text next to it to excel, and the color of the transferred text will be different. Thanks for your help The code below written before is available but there is no automatic numbering part (Automatically number each selected text and transfer it to Excel with that number) dd.lsp
  9. BIGAL

    APİ call in AutoLisp

    Lt may not support "GetInterfaceObject", it is not a full lisp version lots of stuff does not work. @p7q did you try what I posted ?
  10. Yesterday
  11. BIGAL

    Registration code

    Just a quick comment where I used to work we used a simple check inside say a FAS, no remote check, we had a phone call from a client who said code was not working. Ok the reason he was trying to give the programs to some one else, so our security worked.
  12. Drawing a complex reinforcement bar slab is difficult. A good idea would be to look at the Array command. 14@200, Array pickbar Enter R Col 14 200 Row 1 3xEnter. You swap row and col for horizontal and vertical arrays. It is the sort of thing you would use a lisp to draw. But you would start with very simple REO patterns then get more and more complex. 14@200 in lisp would be pick reo-line, enter spacing, enter number, all done. The labels again a lisp by dragging over the lines and adding a donut at each bar and adding the label details. There may be some draw reinforcement details lisps out there, you need to google, they may be free or at a cost.
  13. BIGAL

    Trim Lines inside Rectangs

    Not sure why it did not work for you, maybe remove the (cons 70 1). You can email me your test dwg. Note what it did for the overlapping rectangs.
  14. Lee Mac

    Incremental Numbering Suite

    Incremental Numbering Suite Version 4.0 Released. The main feature of the new version is the introduction of a dedicated 'Content Builder' to facilitate the construction of an incrementing string from an arbitrary number of incrementing and/or static components. With this feature, the user now has the ability to independently control the increment amount and increment frequency for each component of the string, enabling multiple sections of the string to increment by different amounts and at different rates to one another. The new version also introduces the ability to load & save application configurations, streamlining the operation of the program for multiple numbering systems.
  15. CyberAngel

    Upper Slab Drawing How to Draw Autocad

    I would start with studying the commands RECTANGLE, ARRAY, and DONUT. Also linetypes and dimensions.
  16. SLW210

    Trim Lines inside Rectangs

    I get an error with this after selecting closed polylines. TrInsideRect.lsp successfully loaded. Command: Command: Command: trinsiderect Select closed plines Select objects: Specify opposite corner: 15 found 3 were filtered out. Select objects: ; error: Automation Error. Description was not provided.
  17. SLW210

    Insert Field Objects remains empty

    Here is the other thread by the OP... https://forums.autodesk.com/t5/autocad-forum/insert-gt-field-gt-object-does-not-display-choices/td-p/12086727 This eventually happened to me in AutoCAD 2024, so some sort of bug. Only in AutoCAD not any toolsets that I noticed. Maybe windows related as a few fixes were a new windows profile... https://forums.autodesk.com/t5/autocad-forum/text-object-fields-not-showing/m-p/12837362#M14460 I believe I fixed mine with a reset to defaults. Mine were fine if I opened a drawing that already had some Object fields, etc.
  18. Geo Scan Surveying

    Insert Field Objects remains empty

    im having the same issue... the secondary boxes on the right arent showing. Any ideas?
  19. I'm working on method to transfer content of _some_ block attributes between 2 versions of a drawing. The versions won't be identical, there will be some changes introduced between versions. I consider using this workflow: 1. Open version 1 of the drawing 2. Use ATTOUT to get content of all attributes to v1.txt file 3. Open version 2 of the drawing 4. Use ATTOUT to get content of all attributes to v2.txt file 5. Merge v1.txt with v2.txt. The attributes that needs to be preserved from v1 are copied over the content of v2.txt, the rest stays as is in the v2.txt 6. ATTIN the v2.txt into the v2 drawing The idea is based on the block handle being preserved for the time life of a drawing (it life of the block really). I got a confirmation, but it was from an AI, so not worth much. Is the idea right? Are there a better ways to do it? Edit: Confirmation https://help.autodesk.com/view/OARX/2022/ENU/?guid=GUID-08DCE6ED-DE5A-41FA-9220-3D75B2B4C43D
  20. GLAVCVS

    APİ call in AutoLisp

    Why doesn't 'strUrl' work? Make sure that variable contains a valid URL.
  21. (setq webObj (vlax-invoke-method (vlax-get-acad-object) 'GetInterfaceObject "WinHttp.WinHttpRequest.5.1")) (vlax-invoke-method webObj 'Open "GET" strUrl :vlax-false) (setq errobj (vl-catch-all-apply 'vlax-invoke-method (list webObj 'Send))) This code not working in AutoCAD LT.
  22. GLAVCVS

    Registration code

    @NanGlase To further assess the possibilities of the "license server" option in real time from AutoCAD, the following needs to be considered: At the code level, you must: Check that both the client PC and your own have the same communication port available, and if not, handle this somehow. Also ensure that the firewall will not block the ports on either the client or the server side. At the infrastructure level, you must: Have a static IP or a domain name on the server side so that your code, when executed by the client, knows where to send the request. In my opinion, although this is an interesting challenge, you should assess whether the effort and investment required are justified by the benefits you may gain. I believe that, considering all of this, the most reasonable options might be those proposed by @Steven P and @BIGAL.
  23. 이걸 지금 오토캐드2026 무료버전으로 그리려고 하거든 이것에 대한 방법을 자세히 쉽게 설명해줘
  24. This is as far as I got, I am sure could find other values by digging more. (setq ent (car (entsel "\nPick object "))) (setq a (entget (cdr (assoc 360 ent)))) (setq b (entget (cdr (assoc 360 a)))) (setq c (entget (cdr (assoc 360 b)))) (setq props (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 309)) c))) ("2025-06-17 09:13:03" "Alles.XML" "C:\\\\Users\\\\g45166\\\\Desktop\\\\TOPO\\\\" "2025-06-17 14:47:26" "1.2") Will have another go later, using Bricscad.
  25. Last week
  26. Options>Display>Uncheck Display Margins under Layout Elements section.
  27. How does one go into the "Brain" of AutoCAD 2016 and tell the "dashed" lines to be turned OFF... I can't find a way to select them not be showing up! Thx!
  28. 2025-06-16_Test_LandXML_Linien.dwg Attached the file and also a picture of the extended attributes, I would like to use for the routine. Once there is a solution I want to have a kind of codelist for all lines.
  1. Load more activity
×
×
  • Create New...