A LISP program to change the size type
In AutoCAD drawing, dimensioning is often used. If different dimensioning styles are named before dimensioning, it is very important to modify the dimension line status, arrow specifications, dimension line shape, text position and text of the dimensioning Easy thing.
However, in the actual drawing process, it often happens that the dimension style is not named in advance; or, the dimension style is named in a certain figure, but when its graphic file is inserted by another figure (with the same named dimension style), And when the scale is changed, there will be problems with the dimensioning in the drawing. The same problem also exists when certain graphics in a picture are scaled.
At this time, if the inappropriate dimensions are deleted one by one, and then re-marked, it is obviously a method that is not worth advocating. In fact, it is easy to solve this problem by programming a program in LISP language.
The procedure of the program is: select the dimension to be modified, the program will automatically filter out the dimension, and then select the dimension to be modified, the program reads the size to apply for the distinguished name, and the corresponding dimension in the association table to be modified Items, replace one by one, and then return to the association table.
The source program of CHD.LSP (modified dimensioning form) is as follows:
;;;
(defun C: CHD (/ al a2 b1 b2 d1 d2 d3 n index)
(graphscr)
ROMPT "Please select the size to modify:")
(setq al (ssget '(0. "dimension"))))
(PROMPT "Please select the size to be modified:")
(setq a2 (ENTSEL))
(setq n (SSLENGTH al))
(setq INDEX 0)
(setq b2 (entget (car a2)))
(setq d2 (assoc 3 b2))
(repeat n
(setq b1 (entget (ssname al index)))
(setq d1 (assoc 3 b1))
(setq d3 (subst d2 d1 b1))
(entmod d3)
(setq index (+ index 1))
)
(princ)
)
;;
How to use the program, at the Command prompt, type (load "CHD"), or use the file item application dialog in the drop-down menu to load, then type CHD, and then choose according to the Chinese prompt on the screen, which is very convenient .
In AutoCAD drawing, dimensioning is often used. If different dimensioning styles are named before dimensioning, it is very important to modify the dimension line status, arrow specifications, dimension line shape, text position and text of the dimensioning Easy thing.
However, in the actual drawing process, it often happens that the dimension style is not named in advance; or, the dimension style is named in a certain figure, but when its graphic file is inserted by another figure (with the same named dimension style), And when the scale is changed, there will be problems with the dimensioning in the drawing. The same problem also exists when certain graphics in a picture are scaled.
At this time, if the inappropriate dimensions are deleted one by one, and then re-marked, it is obviously a method that is not worth advocating. In fact, it is easy to solve this problem by programming a program in LISP language.
The procedure of the program is: select the dimension to be modified, the program will automatically filter out the dimension, and then select the dimension to be modified, the program reads the size to apply for the distinguished name, and the corresponding dimension in the association table to be modified Items, replace one by one, and then return to the association table.
The source program of CHD.LSP (modified dimensioning form) is as follows:
;;;
(defun C: CHD (/ al a2 b1 b2 d1 d2 d3 n index)
(graphscr)
ROMPT "Please select the size to modify:")
(setq al (ssget '(0. "dimension"))))
(PROMPT "Please select the size to be modified:")
(setq a2 (ENTSEL))
(setq n (SSLENGTH al))
(setq INDEX 0)
(setq b2 (entget (car a2)))
(setq d2 (assoc 3 b2))
(repeat n
(setq b1 (entget (ssname al index)))
(setq d1 (assoc 3 b1))
(setq d3 (subst d2 d1 b1))
(entmod d3)
(setq index (+ index 1))
)
(princ)
)
;;
How to use the program, at the Command prompt, type (load "CHD"), or use the file item application dialog in the drop-down menu to load, then type CHD, and then choose according to the Chinese prompt on the screen, which is very convenient .
HIGH QUALITY:Made of only the highest quality materials and built to last! Our chargers are gauranteed to match the original brand name chargers' quality.
EASY TO USE: Simply plug the charger into a wall outlet and then directly into your scooter.
The charger protected: Short circuit protection/ over current protection/ over voltage protection; red light -- charging, green light -- charge OK, it stop automatically when the battery is full. Warm Tips: To avoid the temperature of your charger too high, please do not charge too long.
The shell is made by high-quality plastic, smooth appearance with no impurities. Good safety performance, more reliable for you to use. Red light means charging; Green light means fully charged or disconnect.Aviation Plug Scooter Charger,Power Scooter Charger,Li-Ion Battery Charger
Shenzhen Waweis Technology Co., Ltd. , https://www.waweisasdapter.com