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 .
Ultra Slim iPhone 6 or 6S Aramid Fiber MagCase with A Soft 3D-Grip touch. Texture you need to
feel to believe. It almost clings to your hand without feeling sticky. A
protective three-layer coating and manual polishing is applied to each
phone case.
Description:
1. 100% Brand new high quality Carbon Fiber, extremely durable!
2. Precision molded cases to perfectly fit your phone3. Resist dirt, stains and is anti-static and anti-slip
4. Washable material for easy cleaning
5. Protect your phone when in bumping.
6. Direct access to all ports and buttons without removing it from the case.
Color:black/silver/pink/blue/green/red/gold/purple etc
iPhone6 Ultra Silm Case,iPhone6 Aramid Fiber Magnet Case,iPhone6 Magnet Case,iPhone6S PITAKA Magcase Aramid Fiber,iPhone6S PITAKA Magcase,Slim Fit iPhone6S PITAKA Magcase
Shenzhen Aokal Technology Co., Ltd. , https://www.aokal.com