 - (defun DBarCode (p0 str / p00 ll aa tx i s1)
- (setq p00 p0
- ll 0
- )
- (defun aaa (ll p0)
- (if (> ll 0)
- (xyp-LwPlWide (list p0 (polar p0 0 ll)) nil 1)
- )
- )
- (foreach aa (xyp-Get-Str2Lstspr str "-")
- (setq i 0)
- (while (/= (setq tx (substr aa (setq i (1+ i)) 1)) "")
- (cond ((= tx "1") (setq ll (1+ ll)))
- ((= tx "0")
- (setq s1 (aaa ll p0)
- p0 (polar p0 0 (1+ ll))
- ll 0
- )
- )
- )
- )
- (setq s1 (aaa ll p0)
- p00 (polar p00 (* pi -0.5) 1)
- p0 p00
- ll 0
- )
- )
- )
|