Results 1 to 5 of 5
  1. #1

    Default AutoLisp & Visual Lisp - Kinsay hilig ani?


    Intro:
    AutoLISP is a dialect of Lisp programming language built specifically for use with the full version of AutoCAD and its derivatives, which include AutoCAD Map 3D, AutoCAD Architecture and AutoCAD Mechanical.[1] Neither the application programming interface nor the interpreter to execute AutoLISP code are included in the AutoCAD LT product line.
    read more: AutoLISP - Wikipedia, the free encyclopedia

    Kinsay familiar ninyo og LISP, especially sa AutoCAD?

    see sample code below, mao ni osa sa akong mga ona nga simple
    code nga ako gamit, ma automate ni niya pag insert sa akong
    block nga instrument bubble with leader line nya etrim automatic ang line.
    Code:
    (defun c:test () ;;Define command which is test
    (setvar "osmode" 0)
    (setvar "orthomode" 0)
    (setq p1 (getpoint "\nFirst point.")) ;;store the coordinates to symbol p1
    (command "-insert" "BLOCKNAME" p1 "1" "1" "0") ;;autocad's insert block
    (command "_line" p1 pause "") ;;autocad's line command
    (command "trim" p1") ;;autocad's trim command
    (setvar "osmode" 1 ) ;;set variable for Object Snap Mode to 1, which is 1 = ON while 0 = OFF
    (setvar "orthomode" 1) ;;set variable for Orthographic Mode to 1, which is 1 = ON while 0 = OFF
    (princ)
    )
    kung naka operate naka og Autocad i guess familiar mo sa "trim" "line" og "insert" nga command.
    but mostly cguro wala kabalo nga naa diay ingon ani ang Autocad.
    kato mga CAD operator / draftsman nganha, ari ta ngare share2x ta ninyo.
    Last edited by tsunade; 05-08-2015 at 12:36 PM.

  2. #2
    This code move entities to a specific layer
    Code:
    (setq xlay "0")
    (defun c:test ()                                                          
    (setq mySet (ssget "x" '( 
              (0 . "LINE")
              (0 . "LWPOLYLINE")
              (0 . "POLYLINE")
              (0 . "TEXT")
              (0 . "XLINE")
    ;;;;;;ADD more entity/object
    	  
    		)
    	)
    )
    (setvar "cmdecho" 1)
    (setq 1lay (getstring (strcat "\nEnter Layer Name, <" xlay ">: ")))
    (if (= 1lay "")
        (setq 1lay xlay)
        (setq xlay 1lay)
    )
    (command "-layer" "set" xlay "")
    (command "change" mySet "" "Properties" "LAyer" xlay "")
    (command "zoom" "e" "")
    (princ)                               
    )

  3. #3
    History:

    AutoLISP was derived from an early version of XLISP, which was created by David Betz.[4] The language was introduced in AutoCAD Version 2.18 in January 1986, and continued to be enhanced in successive releases up to Release 13 in February 1995. After that, its development was neglected by Autodesk in favor of more fashionable development environments like VBA, .NET and ObjectARX. However, it has remained AutoCAD's primary user customization language.

    read more: AutoLISP - Wikipedia, the free encyclopedia

  4. #4
    Maybe our sister comp TTSP utilizes this with their AutoCAD designs. What we have here in our Planning Dept., are a couple of CAD viewers and only edits those designs at minimal level, I highly doubt that they have used LISP.

  5. #5
    Quote Originally Posted by Badekdek View Post
    Maybe our sister comp TTSP utilizes this with their AutoCAD designs. What we have here in our Planning Dept., are a couple of CAD viewers and only edits those designs at minimal level, I highly doubt that they have used LISP.
    I can surely guaranty that LISP will be beneficial to your comp sir.
    1.) Its free
    2.) Easy to learn.
    3.) Easy to deploy.

  6.    Advertisement

Similar Threads

 
  1. CHILI SAUCE.. Kinsay hilig ani? pwerting halanga.
    By finchy18 in forum Food & Dining
    Replies: 65
    Last Post: 04-20-2014, 09:36 AM
  2. Replies: 27
    Last Post: 10-14-2011, 06:34 PM
  3. kinsay hilig mag MODIFY ug mga TOY CARS...
    By rasta_dubbed in forum Hobbies & Crafts
    Replies: 7
    Last Post: 02-19-2011, 12:04 PM
  4. kinsay hilig og death dri?
    By dogtik007 in forum Music & Radio
    Replies: 82
    Last Post: 06-05-2006, 10:18 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
about us
We are the first Cebu Online Media.

iSTORYA.NET is Cebu's Biggest, Southern Philippines' Most Active, and the Philippines' Strongest Online Community!
follow us
#top