LISP program marked with serial number in engineering drawing

In the engineering design work, the LISP program marked with the serial number in the engineering drawing often needs to mark the serial number for the equipment and parts. According to the standardization requirements, a solid small dot should be added at the marked point, and then a straight line should be drawn; a circle of 8 to 10 mm should be drawn on the other end; the serial number text marked should be written in the circle. The use of AutoCAD basic commands to complete the above work is labor-intensive and time-consuming, and is not easy to modify, especially in dense graphics, the effect is very unsatisfactory, and the quality of the drawing is poor.
We used AutoLISP language to compile BXH.LSP (label serial number), which solves the above problems well. This program adds a BXH command to AutoCAD, which can easily mark the serial number in the drawing, and it is also very convenient to modify or delete the label , Work efficiency has increased more than ten times. According to the compilation principle of this program, it can be deduced to use the procedures such as marking the serial number on the mechanical drawing and marking the welding symbol.
The source program of BXH.LSP is as follows:
; ---------------------------
(defun C: Bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth); standard number (setq radi 5); circle radius (setq txth 5); word height (if (not bx) (setq bx 1))
(setq p1 (getpoint "please select the starting point:")); select a point on the part (setq p2 (getpoint "please select the second point or enter to indicate that there is no second point")); point at the marked position (setq bxh ( geTInt (gstr "Please enter the serial number" bx))); serial number (if bxh (setq bx bxh))
(cond (p2
(command "layer" "set" 2 ""); Change to draw thin line layer (setq ang 1 (angle p1 p2))
(setq p3 (polar p1 ang (-(distance p1 p2) radi))); draw circle, line (command "pline"
(polar p1 ang 1 0.25)
"w" 0.5 0,5 "A" "CE" p1 "A" 359.9 "L" "W" 0 0 p3 "")
(command "circle" p2 radi)
(command "layer" "set" 6 ""; change to write text layer "text" "J" "M" p2 txth 0 bx); write text)
((not p2); if it is directly marked in the part (command "layer" "set" 2 ""); change to draw a thin line layer (Command "circle" p1 radi); draw a circle (command "layer" "set "6" "; change to write text layer" text "" J "" M "p1 txth 0 bx); write text)
)
(setq bx (+ bx 1))
(princ)
)
; -----------------------
To use the program, at the Command: prompt, type (Load "BXH"), press Enter, and then type BXH, and then follow the on-screen prompts to enter the corresponding items. Because this command is often used, it is recommended to install it in the menu file and add an item in the appropriate location of ACAD.MNU:
Standard serial number] ^ c ^ c (LOAD "BXH"); BXH; It is most convenient to click with the mouse

ZGAR bar 2000 Puffs

ZGAR bar 2000 Puffs


ZGAR electronic cigarette uses high-tech R&D, food grade disposable pod device and high-quality raw material. All package designs are Original IP. Our designer team is from Hong Kong. We have very high requirements for product quality, flavors taste and packaging design. The E-liquid is imported, materials are food grade, and assembly plant is medical-grade dust-free workshops.


Our products include disposable e-cigarettes, rechargeable e-cigarettes, rechargreable disposable vape pen, and various of flavors of cigarette cartridges. From 600puffs to 5000puffs, ZGAR bar Disposable offer high-tech R&D, E-cigarette improves battery capacity, We offer various of flavors and support customization. And printing designs can be customized. We have our own professional team and competitive quotations for any OEM or ODM works.


We supply OEM rechargeable disposable vape pen,OEM disposable electronic cigarette,ODM disposable vape pen,ODM disposable electronic cigarette,OEM/ODM vape pen e-cigarette,OEM/ODM atomizer device.

ZGAR bar 2000 Puffs Disposable Vape, bar 2000puffs,ZGAR bar 2000 Puffs disposable,ZGAR bar 2000 Puffs,ZGAR bar 2000 Puffs OEM/ODM disposable vape pen atomizer Device E-cig

ZGAR INTERNATIONAL(HK)CO., LIMITED , https://www.oemvape-pen.com

Posted on