不建议使用虚线层,建议修改线型为虚线。用标准化生成的虚线,可以全图统一的线型比例控制,无须独立设置。
每个公司的虚线是固定的设置。可以代码化:
- (defun make_dash( / temp-list)
- (setq temp-list (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord")
- '(2 . "DASHED") '(70 . 0) '(3 . "Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _")
- '(72 . 65) '(73 . 2) '(40 . 0.4) '(49 . 0.3) '(74 . 0) '(49 . -0.1) '(74 . 0)))
- (entmakex temp-list)
- )
调整组码2、49的参数即可。
很不错的剪切虚线命令。我的之前的习惯操作是:打断、设置为虚线,两个命令。
|