角度转度分秒lisp函数_晓东CAD家园-论坛-A/VLISP-新手小白利用论坛里大侠们的代码建立多重引线样式，说参数太少-程序为借鉴论坛里代码，拼接而成，希望实现自动建立多重引线样式，2014测试结...

(defun AddMLeaderStyle (style / _catchapply dict item)

(defun _catchapply (_function _parameters / result)

(if  (not

(vl-catch-all-error-p

(setq result (vl-catch-all-apply _function _parameters))

)

)

result

)

)

(cond  ((not (setq dict

(_catchapply

'vla-item

(list (vla-get-dictionaries

(vla-get-activedocument (vlax-get-acad-object))

)

"ACAD_MLEADERSTYLE"

)

)

)

)

nil

)

((setq item (_catchapply 'vla-getobject (list dict style))))

((_catchapply

'vla-addobject

(list dict style "AcDbMLeaderStyle")

)

)

)

)

;;*****************************************************************************

;;功 能：绘图程序的初始化处理，记录当前层名、线型、颜色、捕捉方式、文本样式、文本高度,

;; 控制点标记可见方式、主单位值消零处理方式、命令行回显方式、然后关闭目标捕捉,

;; 设置线形随层、颜色随层、设置命令行不回显、不显示控制点标记、对主单位值后续零作消零处理

;;说 明：和函数YL_end配对使用。

(defun YL_begin ()

(setq oderr *error*) ;;保存原来的*error*

(setq *error* YL_err) ;;将*error*用自己的错误处理函数替代

(setq odltp (getvar "celtype")) ;;记录当前线型设置

(setq odclr (getvar "cecolor")) ;;记录当前颜色设置

(setq odosm (getvar "osmode")) ;;记录当前捕捉方式

(setq odlay (getvar "clayer")) ;;记录当前层

(setq odsty (getvar "textstyle")) ;;记录当前文本样式

(setq odtsz (getvar "textsize")) ;;记录当前文本高度

(setq odbpm (getvar "blipmode")) ;;记录当前控制点标记是否可见

(setq odzin (getvar "dimzin")) ;;记录主单位值消零处理方式

(setq odcmd (getvar "cmdecho")) ;;记录命令行回显方式

(setvar "celtype" "bylayer") ;;设置线形随层

(setvar "cecolor" "bylayer") ;;设置颜色随层

(setvar "cmdecho" 0) ;;设置命令行不回显

(setvar "blipmode" 0) ;;不显示控制点标记

(setvar "dimzin" 8) ;;对主单位值后续零作消零处理,因为DIMZIN 对 AutoLISP rtos 和 angtos 函数执行实数向字符串转换操作有影响。

(setvar "osmode" 0) ;;关闭对象捕捉方式

)

;;*****************************************************************************

;;YL_end

;;功 能：程序结束，恢复程序开始前的设置。

;; 恢复Y